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CHAPTER  1. 


Introduction 


In  keeping  with  the  effort  to  upgrade  the  CSL  computer  system  in  software,  a  need 
was  recognized  in  the  sunnier  of  1967  for  some  type  of  list  structure  manipulation  language 
which  could  be  implemented  on  the  CDC  1604  and  Integrated  into  the  new  CSL  computer 
operating  system  ILLSYS. 

During  the  summer  of  1967,  the  author  was  introduced  to  L^  (Bell  Laboratories 
Low-Level  Linked  List  Language)  which  was  developed  at  Bell  Labs  by  K.  C.  Knowlton.  We 
reproduce  some  of  the  introductory  comaer.ts  by  Mr.  Knowlton  from  his  article  describing 
the  L&  system. 


Bell  Telephone  Laboratories  Low-Level  Linked  List  Language  (L°, 

pronounced  "L-six")  contains  many  of  the  facilities  which  underlie  such 
2  3  4  5 

list  processors  as  IPL  ,  LISP  ,  COMIT  and  SNOROL  ,  but  it  permits  the 
user  to  get  much  closer  to  machine  code  in  order  to  write  faster -running 
programs,  to  use  storage  more  efficiently  and  to  build  a  wider  variety  of 
l inked  data  s  tr  uc  tures .... 

....Important  features  of  L6  are’  the  availability  of  several  sizes 
of  storage  blocks,  a  flexible  means  of  specifying  within  them  fields  con¬ 
taining  data  or  pointers  to  other  blocks,  a  wide  range  of  logical  and 
arithmetic  operations  on  field  contents,  and  an  instruction  format  in  which 
remote  data  is  referenced  by  concatenating  the  names  of  fields  containing 
the  succession  of  pointers  leading  to  this  data.... 

....L^  data  structures  are  made  by  fetching  from  a  storage  allocator  blocks 
of  many  sizes,  and  linking  them  by  pointers  which  are  planted  in  fields  which 
the  programmer  himself  def ines ... .Relative  sizes  of  blocks  go  as  powers  of  2; 
thus  the  storage  allocator  can  easily  split  large  blocks  of  free  storage 
into  smaller  ones  and,  conversely,  c«,n  easily  fit  pieces  back  together  to 
reconstitute  large  blocks  if  and  when  their  parts  are  simultaneously  free.... 

....In  general,  L^  is  useful  where  storage  allocation  is  microscopic 
and  dynamic  or  where  the  programmer  wants  the  pattern  of  pointers  among  data 
items  to  correspond  closely  to  the  physical  or  logical  structure  of  the 
objects  with  which  his  program  deals  (electronic  circuits,  comrunicat ion 
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networks,  strings  of  text,  parsed  sentences  and  formulas,  search  trees)  as  in 
simulation,  game  playing,  symbol  manipulation ,  information  retrieval  and  graph 
manipulation.  It  can  also  serve  as  the  means  for  implementing  quickly,  and 
in  a  relatively  machine-independent  way,  higher-level  list  languages  which 
contain  more  powerful  operations  for  specific  problem  areas. 

The  CSLx  (x  =  6,7)  system  is  the  result  of  implementing  the  basic  concepts  of  the 
L**  language  on  the  CD C  1^04  computer  system  under  the  control  of  the  I liar  System  (ILLSYS) 
developed  by  the  Computer  Group  at  CSL.  The  CSLx  language  is  a  superset  of  the  original 
language  and  includes  the  following  features: 

—  two  methods  of  storage  allocation 

—  direct  coupling  to  FORTRAN  system  functions  and  subroutines 

--  contains  facility  for  embedding  machine  language  statements 
(ILLAR  language) 

--  floating  point  arithmetic 

--  user  defined  pushdown-popup  stacks 

—  generalized  format  I/O  statements 

—  computed  control  transfer  statements 
--  pseudo-subscripted  field  declarations 
--  DO  operations  with  arguments 

The  organization  of  this  manual  is  somewhat  like  the  structure  of  a  tree.  The 
entire  work  requires  a  good  foundation  of  knowledge  of  the  basic  precepts  of  linked-list 
storage  systems.  Chapter  2  gives  a  brief  Initial  development  of  strings,  storage  blocks 
and  pointers .  Chapter  3  discusses  the  basic  syntax  of  the  language  and  gives  the  formats 
of  the  statements,  operations  and  programs  in  the  language. 

The  trunk  of  the  tree  is  made  up  of  the  operations  of  the  CSLx  language.  These 
include  storage  control  (Chapter  4),  data  manipulation  (Chapters  5-6). 

Extending  from  the  trunk  of  the  tree  are  the  branches  which  correspond  to 
operations  statements  of  the  CSLx  language.  These  include  control  of  program  flow 
(Chapters  7-8)  and  decision -making  statements  (Chapter  9).  Programmer  controlled  push- 
pop  data  stacks  and  basic  I/O  statements  complete  the  manual  (Chapters  10  -  11)  followed 
by  some  sample  programs  (Chapter  12) . 

This  manual  is  a  compromise  between  an  outline  and  a  textbook.  It  is  assumed  that 
programming  experience  has  been  acquired  ty  the  reader,  not  necessarily  with  list-structures. 
We  make  no  attempt  to  treat  list-structures  themselves  beyond  a  brief  look  at  linked  lists 
since  CSLx  is  a  general  blocked-storage  system.  If  the  reader  needs  further  Information 
about  the  ILLSYS  operating  system  on  the  CSL  1634  computer,  he  should  consult  with  members 
of  the  Computer  Croup. 


CHAPTER  2.  List  Structures,  Blocks.  Fields,  Bugs  and  Pointers 


Section  2.1  Overview  of  Data  Storage  Elements 

The  general  method  of  data  storage  used  in  computer  memories  for  mathematical  programs 
is  the  array  structure.  An  array  is  a  block  of  contiguous  memory  locations  (words)  where  she 
lowest  word  is  labeled  with  the  name  of  the  array  and  individual  e lements  of  the  array  are 
obtained  by  specifying  a  subscript  (index)  which  when  appended  to  the  array  name  uniquely 
designates  the  desired  element.  As  an  example,  assume  an  array  ALPHA  exists.  The  tenth 
element  of  ALPHA  would  be  specified  bv  ALPHA(9)  where  the  array  begins  at  ALPHA ( 0) . 

Relationships  between  elements  in  an  array  are  specified  by  operations  on  the  indices 
of  the  e lements .-  Suppose  ALPHA  contains  x,y  pairs  of  cartesian  coordinates  of  some  curve. 

An  x  coordinate  lies  in  element  ALPHA(I)  and  the  %  coordinate  lies  in  e lenient  ALPHA(I+1). 

Thus,  given  the  index  I  of  some  x  coordinate  in  ALPHA,  the  index  for  the  associated  ^ 
coordinate  is  1+1.  Furthermore,  given  the  index  I  of  the  x  coordinate  of  souk  point  on  the 
curve,  the  index  of  the  x  coordinate  of  the  next  point  is  1+2. 

Many  cases  of  data  storage  arise  where  the  relationships  between  data  elements  or 
blocks  of  data  elements  are  not  conveniently  specified  in  terms  of  operations  on  indices  c 
linear  arrays .  To  satisfy  this  need  for  a  more  general  data  linking,  list-structures  (strings) 
were  developed.. 

The  key  defining  feature  of  list-structures  is  an  element  called  the  link.  Relation¬ 
ships  between  blocks  of  data  are  specified  ir.  the  manner  in  which  the  blocks  are  1  inked 
together.  What  is  a  1 ink?  An  illustration  if  we  may. 

Suppose  we  have  three  (3)  sets  of  cartesian  coordinates,  x^,  *2^2'  *nd  *3^ -• 

Each  coordinate  is  contained  in  one  computer  word  and  the  coordinate  lies  in  word  a+f 
where  the  x  coordinate  lies  in  word  m. 

Let  us  append  one  more  computer  word  to  each  coordinate  pair  to  form  a  block  of 
three  (3)  words .  This  extra  word  will  be  used  to  hold  a  link  for  use  in  "stringing"  the 
blocks  together  into  a  list-structure. 

Assume  that  the  coordinate  pairs  lie  in  computer  word  blocks  beginning  at  locations 
PI,  P2  and  P3  (called  the  baae  addresses  of  the  blocks) .  Let  us  define  a  pointer  as  the 
contents  of  a  computer  word  which  contains  the  computer  representation  of  tlie  base  address  of 
some  coordinate  block. 

Now  let  us  place  a  pointer  in  the  third  word  of  each  block  as  follows: 
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XjXj  block 

tissM 

*3^3  block 


third  word  holds  P2 
third  word  holds  P3 
third  word  holds  PI 


We  now  can  state  that  the  third  word  of  the  block  contains  a  pointer  to  the  x^y2  block, 

etc.-  We  pictorially  represent  out  data  in  the  figure  below.  By  knowing  which  block  we 
are  looking  at  in  any  instant  in  tine,  we  can  search  the  third  word  of  the  block  for  a  pointer 
to  another  block.  This  concept  states  the  link  between  the  two  blocks . 


Block  P3 


Block  P2 


M-UtO 


Linked  List  of  Three  Blocks 
Figure  2.1 

Note  that  the  three  coordinate  blocks  nay  lie  in  non- contiguous  sections  of  the  com- 
puter  memory.  This  Is  the  inherent  power  of  the  list  structure  when  combined  with  the  ability 
of  using  the  links  to  specify  relationships  between  data  blocks  in  storage  analogously  to  the 
relationships  in  the  actual  cooceptial  data. 

The  actual  representation  of  a  pointer  in  a  computer  system  with  32,768  words  of 
memory  would  be  a  15-bit  binary  address  of  the  base  address  of  some  block  of  words ■  Typically, 
the  same  computer  will  have  a  word  size  of  N  bits  where  N  >  15.  Thus,  we  are  wasting  N-15  bits 
of  the  third  word  of  each  coordinate  block  in  the  above  example .  We  can  solve  the  problem  of 
wasted  space  by  a  concept  of  subdivision  of  a  word  into  eleacnts  called  fields .- 

F ie Ida  are  usually  defined  in  a  global  manner  relative  to  block  base  addresses ■  They 
are  alto  specified  as  all  bits  in  a  computer  word  delimited  by  a  left-most  bit  and  a  right-most 
bit.  For  instance,  suppose  we  define  field  POINT  as  the  tnird  word  o.  any  block,  and 
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consisting  of  the  (0-16)^  hit  through  the  (N-l)st  bit  in  the  word.  Thus,  the  pointer  in 
the  PI  block  would  be  found  in  element  PI  (POINT). 

Note  that  the  form  of  the  descriptor  of  the  desired  element  is  analgous  to  the 
crray  subscript  notation.  Because  pointer  search  routines  actually  trace  the  pointers  in 
the  description  to  reach  the  desired  data  element,  t.'ere  is  no  reason  why  successive  pointer 
"strings"  cannot  be  used.  By  starting  at  block  PI.  the  pointer  in  clock  P2  can  be  addressed 
by  the  descriptor  P1(P0INT(P0INT)).  The  search  starts  at  block  PI  and  its  field  POINT. 
Because  Pl(POINT)  is  not  the  end  of  the  "string",  the  field  Pl(POINT)  is  accessed  for  the 
pointer  P2  and  the  search  continues  at  b lock  P2. 

At  this  point  the  original  descriptor  has  in  effect  been  reduced  to  P2(P0INT)  and 
since  this  terminates  the  "string,"  the  field  POINT  is  accessed  for  a  data  element,  the 
pointer  to  P3.  We  are  now  free  to  define  the  reamining  (N-15)  bits  of  word  3  as  some  other 
data  or  pointer  field  if  we  desire. 

A  quick  example  of  a  conceptual  data  structure  that  is  easily  stored  in  a  computer 
memory  in  list-structure  form  is  a  family  tree.  Using  a  block  and  field  structure: 


Paten*’"  Name 

Child  #1 

Child  #2 

Child  #3 

Child  #4 

Block  with  Five  (5)  Fields 
Figure  2.2 

we  might  arrive  at  the  structure  in  Figure  2.3, 


Each  pair  of  parents  is  indicated  by  a  block  in  the  structure.  The  first  word  of 
the  block  holds  the  name  of  the  parents.  Each  field  CHILD  fx  holes  a  pointer  to  the  resulting 
block  defined  for  that  child. 
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Section  2.2  Storage  Blocks 


The  basic  element  of  storage  In  the  CSLx  system  is  the  block.  A  block 
words  in  the  CSL6  system  (N  *  0-7)  and  1-32  words  in  the  CSL7  system.-  The  words 
numbered  contiguously  from  zero  (0)  to  N-l  for  a  block  of  N  words.  For  purposes 
we  will  adopt  the  notation  N-block  when  we  discuss  a  block  where  N  is  the  number 
the  block.* 


may  contain  2 
in  a  block  are 
of  discussion, 
of  words  in 


The  global  storage  area  (GSA)  is  defined  at  program  loading  time  as  the  "free  storage" 

area  bounded  at  the  low  end  by  the  system  location  MEMEND  and  at  the  upper  end  by  location 

CO?  IN  BEG .  MEMEND  is  the  first  location  above  the  end  of  the  user's  program  and  subroutines. 
COXNBEG  is  the  lowest  location  of  COMMON  as  defined  in  the  user's  program  and  subroutines. 

Control  of  the  use  of  the  GSA  is  performed  by  two  system  routines:  L6ST0RAG  or 
L7ST0RAG.  The  GSA  is  partitioned  into  blocks  and  strung  together  in  lists  called  the  unused 
X-blocks  lists  (UBLjj).  The  user  must  initially  instruct  the  storage  allocator  (SA)  (either 
L6ST0RAC  or  L7ST0RAG)  as  to  the  maximum  size  block  which  will  be  needed  by  his  program.  Storage 

is  then  partitioned  into  as  many  maximum  size  blocks  as  is  possible.  Then  the  remaining  storage 

is  partitioned  into  the  next  smaller  size  of  block.  This  continues  until  all  of  GSA  is  parti¬ 
tioned  into  blocks. 

All  of  tlie  1-blocks  are  then  strung  together  in  the  unused  1-block  list  (UBL^) .  All 

of  the  2-blocks  are  placed  in  the  UBLj.  This  process  continues  up  to  the  M-b locks  where  M  is 

the  maximum  size  block  to  be  needed. 

During  the  execution  of  the  user's  program,  requests  are  made  to  the  storage  allocator 

(SA)  for  blocks  from  the  GSA.  If  such  a  block  is  available,  the  program  receives  from  the  SA  a 

pointer  which  enables  it  to  work  with  the  requested  block.  Pointers  are  15-bit  quantities 
and  therefore,  require  that  f  ie Ids  where  they  are  held  are  large  enough  to  hold  at  least  15-bits 
of  information.  Further  discussion  of  pointers  must  await  a  description  of  fields  and  bugs 
which  are  described  later  in  this  chapter. 

What  happens  if  no  block  of  the  requested  size  is  imedlately  available  from  the  GSA? 
For  this  occurrence,  separate  actions  are  taken  in  the  CSL6  and  CSL7  systems.  We  discuss  the 
CSL6  system  operation  first.- 

Suppose  the  program  requested  an  N-block  from  storage.  Since  the  UBL^  is  empty,  the 
SA  searches  the  higher  UBL^  for  the  next  UBL^  which  is  not  empty.  If  UBL^  contains  a  K-block. 
the  following  occurs. 


Original  notation  in  Bell  Labs  report. 
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Suppose  N  *  2^  and  K  “  2*.  Then  the  K-block  Is  divided  into  two  i-blocks  where 
L  ■  These  L-blocks  are  placed  in  UBL^.  If  N  f  L,  then  K  is  set  equal  to  L  and  the 

division  process  is  repeated  with  one  of  the  blocks  from  UBL^. 

When  N  »  L,  a  block  of  the  requested  size  is  now  available  and  the  SA  completes  its 
operation  by  passing  the  pointer  of  the  requested  block  to  the  program.  The  remaining  half  of 
the  divided  block  is  left  in  UBL^. 

The  possibility  exists  that  no  UBl^  above  URLj.  contains  a  block.;  In  other  words, 
there  are  no  other  unused  blocks  in  the  GSA  that  are  larger  than  the  requested  size  block. 

When  this  condition  occurs,  the  SA  performs  a  "garbage  collection"  operation.  "Garbage  col¬ 
lection"  consists  of  recombining  smaller  blocks  into  larger  blocks  until  all  possible  pairs  have 
been  recombined.  A  complete  recombination  is  performed  on  all  blocks  smaller  than  the  requested 
size  starting  with  l-blocks  and  working  up.  If,  after  "garbage  collecting"  is  complete,  there 
is  still  no  block  of  the  requested  size,  then  a  system  error  message  results  informing  the  user 
that  no  more  unused  blocks  of  the  requested  size  exist  end  a  return  is  made  to  the  system 
monitor  (CSIMCS). 

In  the  CSL7  system,  the  same  procedure  of  dividing  larger  blocks  into  smaller  blocks 
is  used  to  produce  a  block  of  the  required  size.  Suppose  the  program  is  requesting  an  N-block. 
The  SA  finds  that  it  has  no  N-block  but  it  does  have  a  k-block  (K  «  7’ *4  for  purposes  of  dis¬ 
cussion).  The  SA  will  simply  divide  ths  K-block  into  an  K- block  and  a  4-block »  The  4-block  will 
be  added  to  UBL^  and  the  pointer  for  the  rt-block  will  be  returned  to  the  program. 

No  recombination  is  allowed  in  the  CSL7  system.  The  reason  for  this  will  be  explained 
itter.  Because  of  no  recombination,  the  SA  must  declare  no  more  unused  blocks  if  it  cannot  find 
some  UBLt  higher  than  UBLj.  with  at  least  one  1-block  available. 
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Section  2.3 


Fields 


The  basic  decent  of  storage  for  data  and  pointers  is  the  field.  Fields  fall  into 
two  (2)  categories:  Fullword  fields  (FWF)  and  Variable  Length  Fields  (VLF).  A  fullword 
field  (FWF)  is  one  1604  word,  i.e.,  48-bits  in  length.  Variable  length  fields  (VLF)  may  be  any 
length  from  1  to  48  bits  long  and  nay  reside  In  any  portion  of  a  1604  word. 

VLF  are  designated  internal  to  storage  blocks  while  FWF  are  separately  defined  in  the 
user  program  or  his  subroutines.  Literals  are  FVF  and  are  defined  in  each  user  program  or 
subroutine.  Literals  may  be  read  from  but  not  written  into  during  program  execution.  FWF 
defined  internal  to  a  given  program  or  subroutine  for  use  as  a  data  storage  location  are  called 
internal  fields  (IF).  FWF  used  in  a  program  or  subroutine  for  data  storage  but  defined  ex¬ 
ternally  in  some  other  program  or  subroutine  are  called  external  fields  (EF).  The  various 
means  by  which  FWF  are  designated  in  a  program  or  subroutine  will  be  detailed  in  a  later  section. 

Let  us  turn  our  attention  for  the  present  to  a  discussion  of  variable  length  fields 
(VLF).  The  VLF  and  the  block  structure  are  the  basic  attributes  of  CSLb  and  CSL7  that  give  the 
languages  their  power  and  utility. 

Recall  that  a  block  is  a  contiguous  set  of  1604  words  and  pointed  to  by  a  pointer. 
Figure  2.4  shows  the  schematic  of  a  4 -block.  The  divisions  within  the  block  are  called  VLF. 

They  may  lie  anywhere  within  the  block,  they  may  overlap  one  another,  and  they  may  even  coincide 
in  some  cases. 


Two  different  arrangements  are  shown:  one  for  a  CSL6  block  and  one  for  a  CSL7  block. 
Two  areas  in  the  Cl  ,6  b lock (T) and  one  area  in  the  CSL7  block (3) are  crossed  out. 

These  areas  are: 


<s> 

© 


Word  0  Bits  9-  8 
Word  9  Bits  24-26 
Word  9  Bits  0-  5 


CSLx  system  information  is  kept  in  these  areas  and  therefore,  the  user  is  not  allowed  to  assign 
VLF  covering  these  areas. 

A  VLF  is  defined  by  specifying  three  (3)  parameters: 

1.  Word  bias 

2.  Left  bit  boundary 

3.  Right  bit  boundary 


A  listing  of  the  parameters  of  the  VIF  in  Figure  2.4  vill  best  illustrate  their  meanings.  The 
VLF  letter  name  (which  *sy  be  A-Z,  0-9)  is  shown  in  the  upper  right  hand  corner  of  each  VLF  area. 
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CSL7  Block 

A  »-»loclc  la  CSL6  and  CSL7 
ri|«n  2.4 


w 


Field 

Word 

Number 

Left 

Bit 

Right 

Bit 

A 

0 

33 

47 

B 

0 

9 

23 

C 

0 

27 

32 

D 

1 

33 

47 

E 

1 

9 

23 

F 

1 

2U 

32 

C 

2 

0 

47 

1! 

3 

0 

47 

M 

1 

24 

47 

N 

2 

0 

47 

Note  that  VLF  C  and  N  coincide  and  VLF  M  overlaps  F  and  D. 

’The  user  must  remember  the  following  rule  concerning  VLF  specifications:  every  VLF 
specification  applies  to  every  block  in  use  by  the  user  program  or  subroutine.  The  word  bias 
parameter  is  relative  to  the  beginning  of  any  block  and  when  taken  together  with  the  pointer 
to  a  block,  the  result  is  a  unique  address  in  the  1604  memory. 
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Section  2.4  "Bugs" 

An  electronic  computer  Is  usually  designed  with  one  or  more  full  word  registers  where 
data  manipulation  may  occur.  In  the  CSLx  systems,  26  registers,  referred  to  as  "bugs,"  have 
been  set  aside  for  use  as  data  registers  or  pointer  registers.  These  registers,  hereafter 
referred  simply  to  as  "bugs,"  are  actual  1604  memory  locations,  not  hardware  registers,  but  the 
use  is  the  same. 

The  notation  "bug"  comes  from  the  original  3ell  Laboratory  L6  Report1.  Linked-llst 
structures  can  be  likened  to  beads  on  a  string.  Since  "bugs"  hold  pointers  to  blocks  which  may 
reside  on  the  string,  the  blocks  are  referenced  through  the  "bug"  depending  on  where  the  "bug" 
points,  or  for  the  analogy,  where  the  "bug"  sits.  Moving  pointers  up  and  down  the  list  corre¬ 
sponds  to  the  "bug"  crawling  up  and  down  the  string. 

As  a  general  descriptive  convention,  a  "bug"  is  indicated  pointing  to  a  block  as  shown 
in  Figure  2.5.  "Bug"  B  holds  the  pointer  to  block  X. 

Any  one  of  the  26  "bugs"  may  also  be  used  for  data  manipulation.  A  "bug"  is  48-bits 
in  length  and  therefore,  falls  into  the  FWF  category.  They  are  referenced  in  the  CSLx  program 
with  a  field  string  field  descriptor  which  will  be  described  in  Section  3.2. 1.2. 

"Bugs"  are  automatically  set  up  by  the  CSLx  compilers  in  the  user's  MAIN  program. 

Each  "bug"  is  also  made  as  an  entry  point.  Therefore,  all  subroutines  reference  "bugs"  as 
external  symbols  and  allow  a  single  set  of  system  "bugs"  to  suffice  for  all  the  user's 
program  and  subroutines.  Obviously,  this  means  that  not  more  than  one  MAIN  program  may  be 
loaded  into  memory  at  a  given  time. 


Block  X 


A  2-Block  Pointed  to  by  a  "Bug" 
Figure  2.5 
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Section  3.2  Basic  Data  Descriptions 


Two  classes  of  syntax  elements  describe  data.  The  data  descriptor  is  the 
notation  for  describing  some  field  in  core  storage  whether  it  be  a  full  word  field  (FWF)  or 
a  var iable  length  f Ie Id  (VLF).-  Literals  describe  explicit  forms  of  data  such  as  numbers  or 
hollerlth  character  strings. 

Section  3.2.1  Data  Descriptors 

There  are  three  (3)  types  of  data  descr iptors :  internal  full  word  fields  (IF), 
external  full  word  fields  (EF)  and  field  strings  which  reference  VLF. 

Section  3.2.1. 1  Internal  and  External  Full  Word  Fields 


Internal  full  word  fields  (IF)  are  used  for  reference  to  FWF  which  are  defined 
internally  to  the  program  or  subroutine  where  the  reference  is  made.  Any  FWF  is  labeled 
with  up  to  eight  (8)  BCD  characters  under  the  label  convention  of  the  ILIAR  language.^ 
The  data  descriptor  has  the  fortu: 


/xxxx 


tdjere  XXXX  is  the  label  attached  to  the  FWF.  A  form  of  pseudo-subscripting  is  allowed  on 
IF's.  A  pseudo-subscripted  IF  has  the  to*,  a: 

/XXXX+(exp) 

where  (exp)  is  an  arithmetic  expression  made  up  of  the  operators  +  and/cr  -  and  literals 
and/or  other  data  descriptors.  Section  3. 2. 1.3  discusses  pseudo-subscripting  further. 

External  full  word  fields  (C”)  follow  the  same  conventions  a,  for  IF  except  that 
the  referenced  FWF  is  defined  in  a  program  or  subroutine  other  than  the  one  in  which  the 
reference  is  made.  The  form  of  the  data  descriptor  is- 

*YYYY 

Pseudo-subscripting  is  also  allowed  in  the  same  manner  a«  for  IF. 

Section  3.2. 1.2  Variable  Length  Fields  and  Field  Strings 

A  var iab le  length  field  (VIT)  is  referenced  through  a  field  string  data  descriptor . 
A  field  str ing  describes  a  string  of  pointers  which  eventually  point  to  the  destination  field 
where  the  desired  data  is  to  be  found  or  stored.  Recall  that  a  pointer  denotes  the  0t«.  word 
of  some  n -block  in  memory.  The  notation  for  discussion  is  shown  in  Figure  3.1.  The  basic 
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format  for  a  VLF  field  string  is  as  follows: 


BTT. . .TR 


Each  of  B,  T  and  R  are  single  characters.  B  designates  one  of  the  26  "bugs"  (A-Z).  T  and 
R  designate  field  names  (A-Z,  0-9). 

The  "bug"  B  and  each  T  designate  where  pointers  are  to  be  found.  R  is  a  field 
to  be  referenced,  either  for  fetching  or  storing  of  data  or  a  o inter .  To  get  to  R,  a 
"trace"  is  made  in  the  following  manner: 

The  "bug"  contains  a  pointer  to  some  block.  If  there  are  no  T  in  the 
field  string,  then  R  lies  in  the  block  "pointed  to"  by  the  "bug."  If 
there  are  one  or  more  T  in  the  field  string,  then  the  first  T  field 
lies  in  the  block  pointed  to  by  the  "bug"  and  contains  a  new  pointer 
to  a  block.  Each  successive  T  fie  Id  lies  in  the  block  pointed  to  pre¬ 
viously  and  contains  a  poll. ter  to  a  block.  The  R  f ield  lies  in  the 
block  "pointed  to"  by  the  last  T  field  and  can  be  referenced  from  there. 

A  special  case  of  the  vlf  field  string  occurs  when  only  one  alphabetic  character  appears  in 
the  string.  There  are,  therefore,  no  T's  and  no  R.  Thus,  the  indicated  "bug”  is  to  be 
refererced  directly  for  fetching  or  storing. 

Let  us  illustrate  using  Figure  3.1.  There  are  three  (3)  VLF  singled  out  and 
numbered  as(I)(5)and  Q  VLF©may  be  referenced  in  one  of  the  following  ways. 


3CM 

(D 

BCBM 

(2) 

CBM 

(3) 

BDCBM 

(4) 

Let's  look  at  field  s tr ing  (1).  "Bug"  B  "po’nts"  to  block  1  whose  C  field  "points"  to 

block  2  whose  M  field  is  the  desired  f ield  for  reference.  (2)  states  that  "bug"  B 

"points”  to  block  1  whose  C  fie  Id  "points"  to  block  A  whose  B  field  "points"  to  block  3 
which  contains  the  X  field.  The  reader  should  now  be  able  to  follow  the  "trace"  to  arrive 

at  the  desired  M  field  by  any  of  the  indiccted  paths.  For  VLF  only  one  path  can  be 

taken: 


BAD 
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A  Typical  Linked-List  Structure 
Figure  3.1 
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While  for  VLF  (5^  the  following  paths  may  be  taken: 

BCA 

CA 

EDCA 

The  reader  is  encouraged  to  plot  the  paths  from  either  of  the  "bugs"  B  and  C  to  any  of  the 
VLF's  for  further  practice  and  understanding  of  the  VLF  referencing  algorithm. 

Section  3.2. 1.3  Pseudc -Subscripting  of  Internal  and  External  FWE 

In  order  to  allow  completely  general  compatibility  between  the  CSLx  list-structure 
system  and  the  more  common  array -structured  systems,  FORTRAN  and  ILLAR,  some  form  of  sub¬ 
scripting  in  linear  arrays  is  necessary. 

In  the  CSLx  system,  an  IF  or  EF  may  be  treated  as  a  linear  array  and  Indexed  in  a 
pseudo-subscript ive  manner  by  use  of  a  data  descriptor  of  the  following  form: 

/field  +  index 1  +  index2  + . +  indexN 

*field  +  index  1  +  index’  + . +  IndexN 

field  is  the  label  assigned  to  the  referenced  EF  or  IF  which  becomes  the  zeroth  element  of 
the  array  field. 

The  string  of  index I  elements  separated  by  +  or  -  forms  an  arithmetic  expression 
which  when  evaluated  provides  the  bias  used  to  index  the  array  fie  Id.  The  elements  indexl 
may  be  any  form  of  data  descriptor  or  decimal/octal  literals. 

Some  examples  will  further  illustrate: 


/BUFFER+10B 

internal 

field 

- 

octal  literal  index 

/BUF+25 

internal 

field 

- 

decimal  literal  index 

/LIST-/INDEXCT 

internal 

fie  Id 

- 

internal  field  index 

/STRING -BAD 

internal 

field 

- 

string  index  (field) 

/BUFR+*EXTINPEX 

internal 

field 

- 

external  field  index 

♦BUFA+345B 

external 

field 

- 

octal  literal  index 

♦BUFB-21 

external 

field 

- 

decimal  literal  index 

♦BUFC-/TINDEX 

external 

field 

- 

internal  field  index 

♦BUFRA+DART 

external 

fie  Id 

- 

string  index  (field) 

*BUFL-BUFEXT 

external 

field 

- 

external  field  Index 

3.2. 1.4  Literals 


Literal  data  descriptors  explicitly  define  data  during  an  operation.  There  are 
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four  types  of  liter  si  elements  allowed  in  CSLx  prograns: 


1.  octal 

2.  decimal 

3.  floating  point 

4.  hollerlth 

We  choose  not  to  discuss  each  type  of  data  In  detail  because  the  literal  conventions  for 
CSLac  programs  are  Identical  to  the  conventions  of  the  ILLAR  language  system.  The  ILLAR 
system  manual  may  be  referred  to  by  the  reader  to  clarify  his  questions. 

The  type  of  literal  allowed  in  a  given  situation  varies  greatly  and  s  best  ex¬ 


plained  when  necessary. 


Section  J.3 


Basic  Operation  Unit 


For  compatibility  reasons,  the  same  form  for  the  basic  operation  unit  as  used  In 
Is  maintained  In  the  CSLx  systems.  The  format  Is  as  follows: 

(a,op,b,c,d) 

op  Is  a  series  of  characters  denoting  some  available  operation  in  CSLx  and  perhaps  one  of  Its 
modes  of  operation.  As  an  example,  the  operation  code  AO  denotes  the  Addition  operation  with 
the  operands  assumed  to  be  Octal  Integers. 

a,  b ,  £  and  d,  some  of  which  may  not  be  present,  designate  Helds  where  operands  may 
be  fetched  or  tesults  stored  during  the  course  of  the  operation.  A  complete  description  of 
the  arrangements  for  all  of  the  possible  operations  will  be  made  In  the  appropriate  section 
dealing  with  each  operation.  We  present  here  for  Illustration  several  BOU's  simply  to  show 
form  as  they  might  appear  in  a  CSLx  program: 

(A.E.l) 

( /TIME,  A,  1 /CLOCK) 

(♦DATE  ,A ,  -6 ,  /'BUFFER+ INDEX  ) 

In  the  CSLx  system,  spaces  are  ignored  except  internal  to  BOU’s.  There  they  are  counted 
necessarily  because  of  the  possible  inclusion  In  a  hollerlth  literal. 
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Section  3.4  Test  Unit 


The  test  unit  (TU)  is  a  special  operation  unit  which  makes  a  test  between  two  Items 
and  produces  a  "vote"  of  yes  or  no  for  a  result.  Test  un Its  are  allowed  only  as  part  of  a 
test  statement  (Section  3.7). 

The  format  of  the  TU  is: 


(a,t,b) 

a  and  b  are  data  descriptors  or  literals.  t_  is  some  relationship  (e.g.,  >,  >,  i,  etc.).  The 
TU  determines  if  atb  is  true,  yes  or  no.  The  yes  or  no  "vote"  is  used  to  make  a  test  state¬ 
ment  decision  during  the  execution  of  the  CSLx  program. 

Further  discussion  of  the  relational  test  operators  will  be  made  in  Chapter  9. 
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Section  3.5 


'goto"  Elements 


The  nost  basic  for"  of  control  transfer  allowed  in  the  CSLx  language  is  the  "goto." 
A  "goto"  is  simply  the  label  of  the  statement  to  which  control  is  to  be  transferred.  This 
operation  is  the  equivalent  of  the  GO  TO  statement  in  FORTRAN.-  However,  only  the  label  of 
the  destination  statement  is  needed. 

There  are  several  CSLx  system  "gcto"  elements  which  are  reserved  for  special  pur¬ 
poses  and  therefore,  the  user  may  not  use  them  as  statement  labels: 

EXIT 

DONE  (Section  7.2) 

FAIL  (Section  7.2) 

The  DONE  and  FAIL  "goto"  elements  are  connected  with  subroutine  calling  operations  and  are 
explained  in  the  indicated  sections.  The  EXIT  "goto”  will  cause  a  transfer  of  control  to 
the  END  statement  of  the  program  for  a  subsequent  exit  to  the  calling  program. 
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Section  3.6  Program  Statement  Elements 


In  a  CSLx  program,  there  are  two  classes  of  statements:  dec larat tve  and  executable . 
The  dec larat ive  statement  performs  non -executable  operations  such  as  storage  space  definition, 
global  space  linkage,  program  definition,  etc.  All  other  statements  are  called  executable 
statements  because  they  compile  operations  which  ai  e  executed  only  at  run  time. 


For  purposes  of  outline,  we  choose  to  list  the  types  of  statements  at  this  time 
but  we  defer  any  elaboration  until  the  appropriate  section.  The  dec  larat  ive  statements  are: 


GLOBAL 
DEFINE 
ENTRY 
DO  ENTRY 
CALL  ENTRY 
EXTERNAL 


(Section  4.3.2) 
(Section  4.3.1) 
(Section  4.3.1) 
(Section  7.2) 
(Section  7.3) 
(Section  4.3.1) 


Under  the  heading  of  executab le  statements,  we  have  three  classes:,  composite ,  test , 
and  pr imary  statements.  We  will  discuss  in  detail  the  makeup  of  the  composite  statement  in 
a  moment.  The  test  statement  discussion  is  reserved  until  Section  3.7.  ?>r  now,  we  simply 

list  the  members  of  the  primary  statement  class  and  give  the  definition  of  the  class  as  those 
statements  whose  formats  are  specifically  related  to  their  individual  functions: 


INPUT 

(Sect  ion 

11.2) 

OUTPUT 

(Section 

11.2) 

ENDIO 

(Sect  ion 

11.4) 

TRANSFER 

(Section 

8.2) 

SWITCH 

(Section 

8.2) 

POPUP 

(Section 

4.4) 

PUSHDOWN- 

(Section 

4.4) 

CALL 

(Section 

7.3) 

DEFSTACK 

(Section 

10.2) 

STACK 

(Section 

10.3) 

UN STACK 

(Section 

10.4) 

The  statement  most  used  in  a  CSLx  program  is  the  c empos lte  statement.  The  name 
of  the  class  is  derived  from  the  fact  that  the  statement  is  made  up  of  a  composite  of  basic 
operation  units  (BOU),  "goto,"  and  sometimes  ended  with  a  primary  statement  used  as  a  unit. 

The  arrangement  or  presence  of  any  or  all  of  the  three  types  of  urits  in  a  composite 
statement  is  governed  by  the  following  rules: 

1.  A  composite  statement  ends  after  a  "goto"  or  primary  statement  unit. 


2. -  A  composite  statement  may  contain  as  many  BOU  elements  as  desired. 

3.  Only  one  "goto"  or  pr imarv  statement  unit  may  appear  m  a  composite  statement. 


After  the  reader  has  read  later  sections  and  srudied  the  sample  programs,  the  form 
of  permissible  composite  statements  will  be  more  apparent. 


Section  3.7  Test  Statements 


Test  statements  are  provided  for  conditional  transfer  of  control  in  a  CSLx  program 
during  the  execution  run.  One  or  more  test  units  (TU)  are  executed  and  their  "votes'’  tal’ied. 
Action  is  then  taken  based  on  the  "vote"  according  to  the  type  of  test  statement . 

There  are  four  (4)  basic  test  statements  covering  the  four  (4)  possible  outcomes  of 
"voting"  tabulations: 


IFALL 

IFNONF. 

IFANY 

IFNALL 


Tvo  shorthand  test  statements: 


IF 

NOT 


are  allowed.  IF  functions  as  IFALL  and  NOT  functions  as  IFNONE  with  the  restriction  that 
only  one  (1)  test  unit  be  used  in  either  case. 


The  general  format  of  the  test  statement  consists  of  four  (4)  parts: 

1.  IABEL 

2.  TYPE 

3.  IF  computation 

4.  Result  computation 


The  LABEL  is  a  standard  statement  label .  TYPE  is  one  of  the  six  (6)  nnemonics  specified 
above.  The  IF  computation  is  a  string  of  one  or  more  TU's  (except  for  IF  and  NOT).;  The  re¬ 
sult  computation  may  be  of  two  forms. 


1.  a  "goto" 

2.  a  composite  statement  proceeded  by  the  key  word  THEN 

As  we  give  a  brief  explanation  of  the  four  basic  test  statements,  we  will  also 
Illustrate  to  clarify  the  actual  source  record  foTtn. 

IFALL  (A,L,3)  (B,G,Z)  THEN  (A,-,B)  EXIT 

IFALL  (K,E,3)  (J,N,4)  BITE 

The  IFALL  statement  transfers  to  the  next  consecutive  statement  if  any  TU  "votes” 
r.o. 
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IFNONE  (A ,G ,  1)  (A, 1, 8)  BADTAPE 


The  IFNONE  statement  transfers  control  to  the  next  consecutive  statement  If  any  TU 
"votes"  yes. 

IFANY  (A,L,2)  (B.L.3)  THEN  <A,E,B) 

The  IFANY  statement  transfers  control  to  the  next  consecutive  statement  if  all  TO's 

"vote"  no. 

IFNAU  (G,G,H)  (H,G,I)  THEN  (I,£,G)  OUT 

The  IFNALL  statement  transfers  control  to  the  next  consecutive  statement  if  all 
TU's  "vote"  >es. 

Note  that  we  have  essentially  stated  the  action  taken  by  these  test  statements  in 
the  reverse  manner.  This  is  intended  to  require  the  reader  to  do  some  thinking  about  the 
operation  of  test  statements.  A  good  fundamental  understanding  Teduces  programming  errors 
and  reversed  decision-making  is  among  the  most  contnon  ones. 


Section  3.8  Source  Language  Formats  In  CSLx  Programs 


There  are  three  types  of  source  language  records  In  a  CSLx  program: 

1.  Concent 

2.  CSLx  source 

3.  ILLAR  source 

All  three  classes  of  records  are  ten  (10)  words  long  in  BCD  format. 

Section  3.8.1  Concent  Source  Records 


The  concent  source  record  class  contains  just  three  records: 

1.  Comment  record 

2.  CSL6  switch  record 

3.  ILLAR  switch  record 

Comment  records  contain  an  asterisk  (*)  in  col.  I  with  colunns  2-80  available  for 
user  typed  material.  Comment  records  are  not  compiled  but  are  listed  on  both  the  CSLx 
source  listing  and  when  requested,  the  subsequent  ILLAR  listing  of  the  compiled  program,. 

The  CSLx  system  has  the  facility  for  progranmer  selection  of  either  CSLx  language 
or  ILIAR  machine  language  internal  to  any  CSLx  program.  To  accomplish  a  switch,  either  of 
the  switch  records: 


--ILLAR  col.  1-7 

--CSL6  col.  1-6 

is  placed  in  the  program.  All  following  records  up  to  tne  next  switch  record  or  tne  end  of 
the  program  will  be  treated  as  of  the  type  of  language  selected.;  Even  though  the  length  of 
records  in  either  language  is  the  same, note  that  comment  records  assume  the  tab  information 
of  the  language  selected. 

Section  3.8.2  CSLx  Source  Records 


These  are  four  fields  in  the  CSLx  Source  Record: 


1. 

LABEL 

col.  1-8 

2. 

CHAIN 

col.,  9 

3. 

STATEMENT 

col.  10-72 

4. 

USER 

col.  73-80 
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Tab  information  is  present  in  the  ILLSYS  system  to  allow  tab  operations  to  column 
10  and  73.  Moving  to  column  9  requires  eight  (8)  spaces. 

The  LABEL  field  serves  two  purposes:  l)  to  provide  a  means  for  statement  refer¬ 
encing  during  EDIT  operations  on  the  CSlx  program  and  2)  to  provide  symbolic  references  for 
transfers  of  control  inside  or  out  of  the  CSLx  program.  The  convention  for  statement  labels 
is  chat  established  for  the  ILLAR  assembly  language  and  we  repeat  the  convention  briefly 
for  completeness. 

Labels  must  be  lef  t  -  just  if  led  in  the  field  and  are  restricted  to  eight  (8)  BCD 
characters  or  less.;  All  of  the  alphabet  and  numeric  characters  may  be  used  in  labels  subject 
to  some  restrictions  described  below.  In  addition,  two  special  characters,  the  period 
and  asterisk  may  be  used  with  the  following  restrictions:  an  asterisk  may  end  a  label 
but  should  r.ot  appear  within  it.  A  period  may  not  begin  a  label  but  may  appear  within  it  or 
at  the  end. 


The  following  restrictions  on  symbols  beginning  with  numrlr  characters  are 
necessary  to  avoid  conflicts  with  the  convention  on  literals: 


1. ;  A  single  digit  number  may  not  be  followed  insnedletely  by  one  of  the 

letters  £,  £  or  h. 

2.  Any  combination  of  numeric  characters  may  not  be  followed  imaediately 
by  one  of  the  letters  b,  d,  or  e. 


For  illustration,  we  list  here  some  of  the  acceptable  and  not-acceptable  forms  of  labels. 


Acceptable 


Not  Acceptable 

(a) 


al 

abcdefgh 
2  3  Iran 
read* 


*abe 

read*a 

a-fb 

lb 


a.b 


.a 


a . 


.  c 


. . tvof ive 


The  STATEMENT  f ie Id  holds  all  CSLx  statements.  Although  the  field  is  only  63  char¬ 
acters  long,  extra  long  statements  can  be  placed  in  the  STATEMENT  fields  of  successive  source 
records  by  placing  a  non-blank  character  in  the  CHAIN  field  of  all  records  in  the  "chain" 
but  the  first.  Note  that  a  chain  is  broken  by  the  next  source  record  with  a  blank  CHAIN 
field  or  a  coraaent  class  record.  Labels  placed  on  "chained"  records  (col.  9  non-blank)  will 
be  ignored. 


The  USER  field  is  simply  an  eight  (8)  character  field  which  is  reproduced  on  the 
CSLx  source  listing  only  and  can  be  used  in  any  way  desired. 

Section  3.8.3  ILLAR  Source  Records 

The  conventions  of  the  1LIAR  system  are  well  wi  itten  up  in  the  ILLAR  manual.-  For 
further  details,  the  reader  should  contact  the  syste-  librarian. 
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Section  3.9 


Program  Descriptions 


A  program  written  in  the  CSLx  (x  =  6,7)  language  system  may  take  one  of  three 

forms  : 

1.  Main  program 

2.  Subprogram 

3.  Subroutine 

Each  program  begins  with  a  header  record  and  ends  with  the  END  record.  The  END  record  con¬ 
tains  END  in  columns  10-12  and  blanks  in  the  remaining  columns.  The  END  card  may  be  labeled 
if  the  user  wishes. 

Each  of  the  three  program  classes  is  identified  by  a  unique  header  record: 

1.  Main  pregrams  -  PROCRAM 

2.  Subprograms  -  SUBPROGRAM 

3.  Subroutine  -  SUBROUTi:^ 

The  descriptive  word  begins  in  colusn  10  of  the  neader  record.  The  descriptive  word  is 
followed  by  a  space  and  then  the  program  name,  up  to  eight  (8)  BCD  characters. 

If  arguments  are  present  for  the  program,  they  are  listed  by  label  on  the  header 
record  following  the  name .  enclosed  in  parentheses,  and  separated  by  cotmoas.  The  following 
are  some  examples  of  header  records: 

PROGRAM  TEST 

SUBPROGRAM  TESTER  (A, TIME) 

SUBROUTINE  CLOCK (ARC) 

To  initialize  the  ILLSY5  system  to  read  CSLx  format  records,  a  CSL6  language  dir¬ 
ective  should  be  placed  just  prior  to  the  header  record.  The  language  directive  is  a  record 
containing  --CSL6  in  columns  1-6  of  the  record  followed  bv  blanks  in  the  remaining  colunxis. 

A  program  set  is  a  collection  of  programs  which  are  placed  in  consecutive  order  on 
some  input  medium  to  be  read  and  compiled  in  contiguous  order.  A  program  set  begins  with  the 
first  header  record  read  from  the  medium  and  ends  with  a  FINIS  record.  The  FINIS  record 
contains  t  LNIS  in  columns  10-14  with  blanks  in  the  remaining  columns..  In  accordance  with 
ILLSYS  conventions,  two  (2)  end-of-file  records  are  written  after  the  FINIS  record  on  the 
medium. 

A  program  set  may  contain  any  number  and  arrangement  of  programs  from  the  three  (3) 
classes  of  CSLx  programs  with  the  following  single  exception: 
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THERE  MAY  BE  ONLY  ONE  (1)  MAIN  PROGRAM  IN  A  PROGRAM  SET. 


Further  flexibility  in  programing  is  provided  by  allowing  the  intermixing  of  CSLx  system 
programs  and  ILLAR  system  programs  in  the  same  program  set .  The  user  may  also  store  lus 
source  records  in  SQUOZE  BCD  format  which  allows  a  condensing  factor  of  5  or  6  in  the  length 
of  the  program  set  on  the  input  medium. 

The  following  is  an  illustration  of  a  representative  program  set . 


--CSL6 

PROGRAM  MAIN 


END 

—END 
— CSLb 

SUBPROGRAM  ROUT INE 1(ARG1,ARG2) 


END 

—END 
— ILLAR 

IDENT  ILLAR6 


END 

—END 
— CSL6 

SUBROUTINE  SUB l 


END 

—END 
— ILLAR 

FINIS 

--END 

—END 
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CtlAPTFR  <■  Storage  Allocation,  Field  Definition  and  Manipulation 


Section  4.1  Overview 

The  first  operation  which  must  be  perfo-raed  when  a  CSLx  program  is  executed  is  to 
set  up  available  storage  in  a  b lock  structure  format.  The  next  operation  usually  performed 
is  to  define  the  fields  which  will  be  used  in  the  blocks .  The  name  of  the  rest  of  the  game 
is  manipulation  of  data  stored  in  the  fields  of  various  blocks . 

The  first  two  topics  of  this  chapter  will  be  presented  in  detail.  The  third  will 
be  only  a  beginning  since  manipulation  covers  many  areas  (later  chapters).  The  types  of 
manipulation  which  will  be  discussed  in  this  chapter  are  data  -  independent  such  as  pushdcwn- 
popup  in  stacks,  field  interchange,  etc. 

Since  we  begin  in  this  chapter  to  show  exact  formats  of  statements  and  operation 
units,  we  will  also  begin  the  practice  of  giving  an  example  in  detail  for  each  new  disclosure. 
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Sec t ion  4 . 2 


Storage  Allocation 


In  Chapter  2,  we  explained  the  two  nethods  of  storage  allocation  available  to  the 
use  of  the  CSLx  system. 

The  method  used  in  CSL6  is  the  fast  storage  -’llocation  developed  1  v  h.  C.  Knowlton. 
This  method  of  storage  allocation  allows  for  complete  recombination  of  smaller  "free"  blocks 
if  possible  and  therefore,  allows  greatest  flexible  usage  of  storage.  The  penalty  paid  is 
in  the  power  of  2  size  of  blocks. 

In  the  CSL7  system,  the  flexibility  of  variable  size  is  allowed  at  the  expense  of 
recombination  which  somewhat  reduces  flexibility  of  storage.-  The  main  reason  for  developing 
the  CSL7  type  of  storage  allocation  was  due,  however,  to  a  need  on  the  part  of  some  users  to 

cut  down  on  the  amount  of  permanent  system  information  attached  to  each  block. 

In  the  CSL6  system,  three  types  of  system  tags  are  attached  to  each  and  everv  block 

obtained  from  the  storage  allocator  routine  (L6ST0RAC).-  The  first  tag  is  the  FREE/INUSE  flag 

and  occupies  bit  0  of  word  0  in  every  block: 

set  to  0  if  FREE 
set  to  1  if  ISUSE 

This  flag  is  used  by  the  system  debugging  routines  (Section  4.5)  during  dump  operations. 

The  second  tag  attached  to  each  block  is  the  size  of  the  block  specified  as  a  power 
of  2.,  This  tag  is  placed  in  bits  24-26  of  word  0.  The  system  uses  this  tag  to  identify 
block  size  and  an  operation  has  been  provided  for  the  user  which  enables  him  to  also  read 
this  tag  (Section  4.4.1).- 

The  third  tag,  located  in  bits  1-8  or  word  0,  is  storage  allocator  information. 

This  tag  is  used  during  recornbinat  ion . 

In  developing  the  CSL7  storage  allocate  m  and  block  scheme,  the  third  tag  is  eli~i- 
nated  and  the  second  tag  expanded  to  hold  five  (5)  bits  of  information.-  i.e.,  the  actual 
number  of  words  in  the  block.  The  FREE/INUSE  flag  still  lies  in  bit  0  of  word  0  while  the 
count  tag  has  been  moved  to  bits  1-5  of  word  0.  Thus,  onlv  six  (6)  bits  of  system  information 
are  used  in  the  CSL?  system  as  opposed  to  twelve  (12)  in  the  CSLfc  system.- 

The  CSLx  user  is  protected  from  violating  the  system  areas  of  word  0  as  long  as  he 
stays  in  the  CSLx  language.  As  soon  as  he  moves  into  1L1AR,  It  becomes  his  responsibil  ity 
to  protect  against  violations..  During  the  first  year  of  usage  of  the  CSLx  system,  this  has 
not  become  a  problem. 
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Section  4. 2 . 1 


Storage  Allocation  Setup  Unit 


The 

allocation  ft t 
(SS.d) 


x'irst  execut  ion  s  tatemen  t  in  a  CSLx  MAIN'  prograr  should  contain  a  storage 
up  301’.-  This  requirement  applies  only  Lo  the  MAIN  program  in  a  program  set. 

The  Storage  Setup  operation  unit  initializes  the  storage 
allocation  routine  and  causes  all  available  storage  to  be 
dismembered  into  blocks .  the  largest  of  ich  is  specified 
by  d,  a  positive  dec imal  integer. 

In  the  CSL6  system,  d_  is  taken  to  be  either  a  power  of 
2  with  a  maximum  of  128(2^)  and  minimum  of  4.  In  the  CSL7 
system,  is  any  integer  from  4  to  32. 

The  (SS.d)  B0l:  also  causes  all  f leld  definitions  to  be 
cleared  out  and  all  stacks  to  be  cleared.  Thus,  this  opera¬ 
tion  effectively  initializes  the  user's  program  and  the  CSlac 
system. 

Exa-ple:  (SS.4) 

This  HOT  initializes  the  storage  allocator  to  partition 
all  available  storage  into  X-blcoks  with  a  maximum  value  of 
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Section  4.j  Defl.iition  of  Fields 


Recall  tiiat  there  are  two  (’)  classes  of  i  ie  Ids  in  the  CSLx  system:  ful  1  word 
fields  (FWF)  and  variable  length  fields  (VLF).  The  methods  of  definition  of  tin  se  two  {’) 
classes  of  fields  are  completely  different  and  as  such,  will  be  explained  in  separate  sec¬ 
tions  . 

Section  4.3.1  Definition  of  Full  Word  Fields  (FWF) 

Since  a  fWF  is  of  fixed  length  (48  bits),  the  user  mist  simply  define  the  labe  1  to 
be  attached  and  whether  the  field  is  interna  I  or  external .  The  sii-plest  of  these  is  the 
external  field  (EF)  and  therefore,  we  will  discuss  it  first. 

Briefly  stated,  the  use  of  an  EF  data  descriptor: 

*XXXX 

is  sufficient  to  cause  the  necessary  information  to  be  compiled  stating  that  XXX X  is  a  FWF 
external  to  the  current  program. 

Situations  sometimes  arise  where  the  user  desires  to  explicitly  declare  some  labels 
for  EF.  The  EXTERNAL  declarative  statement  provides  this  ability: 

EXTERNAL,  LABELl, . . .  .MBELX 

The  EXTERNAL  statement  may  appear  any  place  in  the  CSLx  program,  refining  the  IT  nay  also 
occur  in  an  ILIAR  section  of  code.  Since  this  is  a  departure  from  compiler  control,  the 
user  assumes  all  risks. 

Example:  EXTERNAL,  CSLMCS,  TAPBINOT 

The  FWF  CSLMCS  and  TAPSINOT  are  defined  as  external  to  the  current  CSLx  program. 

Defining  the  interna i  f ie Id  (IF)  is  a  bit  more  precise  as  follows:  each  IF  must  be 
explicitly  defined.  The  definition  process  is  handled  through  the  DEFINE  declarative  statement 

DEFINE,  LABLE1,  LABEL2 . IABELN 

An  expansion  of  the  capability  exists  to  allow  the  1 abe 1 s  to  define  arrays  by  specifying  the 
size  of  the  array  in  enclosing  parentheses: 

DEFINE,  ALPHA  (20) 
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The  DEFINE  statement  nay  appear  at  any  point  in  a  CSLx  program. 


Example:  DEFINE,  ALPHA,  LONG,  TWO  (20) 

FWF  labeled  ALPHA  and  LONG  will  be  set  aside  in  the  program.  A  twenty  (20)  word 
array  Labeled  TWO  will  also  be  set  aside. 

The  ENTRY  declarative  statement  is  provided  to  allow  a  user  to  flag  selected  FWF 
in  one  CSLx  program  to  be  referenced  as  EF  in  another  program: 

ENTRY, LABEL1, , . . , LABELS' 

The  labe Is  of  the  ENTRY  statement  may  refer  to  arrays  in  which  case,  no  size  parameter  is 
used  and  the  zeroth  location  of  the  array  is  the  actual  global  entry  point. 

Example:  ENTRY,  ALPHA,  LONG,  TWO 

Assume  that  this  statement  appears  in  the  same  program  as  the  precious  example.-  Thus, 
programs  outside  this  CSLx  program  may  refer  to  the  FWF  ALPHA  and  LONG  and  also  to  the 
array  TWO. 

Section  4.3.2  Definition  of  Variable  Length  Fields  (VLF) 

The  definition  of  VLF  in  the  CSLx  system  is  a  dynamic  operation  which  occurs  during 
execution  of  the  program.  A  definition  may  occur  at  any  place  and  time  in  any  p*-  rnm.. 

There  are  three  (3)  attributes  in  a  f ield  definition: 

1. :  Word  position  in  a  block.  Counting  begins  at  zero  (0). 

2.  Leftmost  bit  position  of  the  word. 

3.  Rightmost  bit  position  of  the  word. 

F ields  may  not  overlap  word  boundaries.,  F ie Ids  may  overlap  or  coincide  with  other  fields. 

A  f ie  Id  definition  must  occur  prior  to  the  first  use  of  that  f ield  in  a  CSLx  program.  Other¬ 
wise,  a  compiler  diagnostic  will  occur. 

Bit  positions  in  the  word  are  numbered  0  to  47  moving  from  left  to  right.-  Due  to 
the  organization  of  the  1604  computer,  three  ;  ie  Ids  conpile  operations  which  are  faster  than 
the  general  field  definitions: 

1.  bits  0  to  47  -  full  word  f Ield 
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2.  bits  9  to  23  -  upper  address  of  1604  word 

3.  bite  33  to  47  -  lower  address  of  1604  word 


It  is  to  the  user's  advantage  if  he 

can  use  these 

arrangements 

where  possible. 

Example  I: 

Field 

Word 

Left  Bit 

Right  hit 

Word  8  A  B 

A 

8 

9 

23 

1  C 

B 

8 

33 

47 

2  P 

C 

1 

8 

47 

3  E 

n 

2 

8 

47 

E 

3 

8 

47 

Example  II:  Word  8  A  B 

1 

Word 

Left  Bit 

Right  Bit 

i 

1  0  1  2  3  4  k  6 

0  » 

8 

9 

23 

B 

8 

33 

47 

c 

1 

8 

47 

8 

1 

8 

5 

i 

1 

6 

11 

2 

1 

12 

17 

3 

i 

18 

23 

4 

1 

24 

29 

3 

1 

30 

35 

6 

1 

36 

41 

7 

1 

42 

47 

Fields  are  defined  by  using  the  following  B0U: 

(w,Df,l,r)  This  BOU  causes  a  definition  of  f ield  £  to  be  made 

at  this  point  in  the  program  during  execution.  £  is  a 
single  letter,  A-Z  or  8-9. 

The  fields  w,  _l ,  and  r  may  be  either  positive  integers 
or  data  descriptors  of  fields  where  a  positive  integer  can 
be  found.-  w  <  s  the  word  position  of  f  ie  £  m  all  b  locks  ■ 
1^  is  the  leftmost  bi.  position  of  £  and  r_  is  the  rightmost 
bit  position  of  f 

Error,  messeges  occur  for  illegal  values  of  w,  l^,  and  r  and  if  £  is  not  a  legal 
f  ie  Id  character  name.  To  aid  in  debugging,  legal  values  are  assumed  for  w.  1^  and  £  where 
necessary  as  follows: 
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error 


assump  on 


w  <  0  w  =  0 

w  >  127  w  =  0 

1  <  0  1  =  0 

1  >  47  1  -  47 

r_  <  0  r_  «  0 

r  >  47  r  =  47 

1  >  r  1=0,  r  =  47 

In  CSL6,  if  £  covers  bits  0-8  and/or  24-26  and  w  =  0,  w  is  set  to  1. 

In  CSL7,  if  1  covers  bits  0-5  and  w  =  0,  w  is  set  to  1. 

For  examples  of  the  field  definition  BOH's,  we  list  the  BOU's  for  previous 
examples  I  and  II  below: 

Example  I: 

/  1.  (0, DA, 9, 23) 

2.  (0.DB.33.47) 

3.  (1, DC, 0,47) 

4.  (2.DD.0.47) 

5.  (3,DE,0,47) 

Example  II: 

1.  (0, DA, 9, 23) 

2.  (0,DB,33,47) 

3.  (I, DC, 0,47) 

4.  (1  ,D0,0, 5) 

5.  (1,01,6,11) 

6.  (1,02,12,17) 

7.  (1,03,18,23) 

8.  (l,D‘»,24 ,39) 

9.  (1,05,30,35) 

10.  (1,D6,’6,41) 

11.  (1,07,42,47) 

Provision  is  made  to  allow  the  fie  Id  definitions  made  in  one  program  of  a  program 
set  to  be  used  in  other  programs  of  the  set.  The  f ields  are  specified  in  the  GLOBAL  declara¬ 
tive  statement: 

GLOBAL. a, b,,..,z 
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The  a,  b,...,z  are  single  letters,  A-Z. 

There  are  3  cases  concerning  the  occurrence  of  the  GLOBAL  statement  in  a  program. 

Case  1.  Field  definition  -  no  GLOBAL  statement. 

The  defined  f ield  is  internal  to  the  aisociated  program  and 
cannot  be  referenced  from  the  outside. 

Case  2.  No  f le Id  definition  -  GLOBAL  statement. 

The  referenced  f _e id  is  defined  in  the  associated  program 
with  external  labels  so  that  all  field  processing  routines 
for  that  f ie Id  are  located  outside  the  program  and  linkages 
are  made  by  the  ILLSYS  loader. 

Case  3.  F ield  definition  -  GLOBAL  statement.' 

The  referenced  field  is  defined  in  the  associated  program 
and  each  fie  Id  processor  routine  for  the  referenced  field 
is  assigned  as  an  ENTRY  point.  This  allows  both  internal 
and  external  routines  to  reference  a  given  set  of  tie  Id 
processor  routines. 

The  importance  of  these  cases  is  that  only  one  definition  point  for  a  given  f ield 
may  be  allowed  to  be  GLOBAL  in  nature.  Otherwise,  there  will  be  more  than  one  set  of  field 
processing  routines  for  some  field  and  the  system  will  be  unable  to  handle  this  ambiguous 
loading  situation.. 


Incorporated  into  the  CSlx  auxiliary  systems  are  pushdown  stacks  which  retain 
entries  containing  all  nec.ssary  information  for  the  definition  of  some  f  ie  Id  at  a  later 
date  with  a  previous  field  definition.  Field  definitions  may  also  be  passed  to  and  from 
subroutines  by  this  means. 


(S.FD.f) 

(R.FD.g) 


The  user  Saves  (pushdown)  the  current  definition  of  f ie id  £ 
and  Redefines  (popup)  f ie Id  g  with  the  last  entry  pushed  into 
the  pushdown  stack.  £  end  £  are  f  ie  Id  names,  A-Z.  Entries 
are  placed  in  a  stack  on  a  last -in-f irst -out  basis. 
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Section  A. 4 


Block  and  Field  Manipulation  Operations 


We  begin  at  this  point  to  discuss  manipulation  operations  in  the  CSLx  system.  Our 
concern  ‘n  this  section  is  with  the  data-independent  operations  (ve  stietch  the  point  a 
little  when  we  deal  with  pointers)  which  we  divide  into  two  (2)  classes: 

1.  Block  operations 

2.  Field  operations 

Section  4,4.1  Block  Manipula  ion  Operations 

The  first  two  (2)  BOU's  we  discuss  are  concerned  with  eonmunicat ion  with  one  or  the 
other  of  the  CSLx  storage  allocator  routines  (L6ST0KAG  or  L7ST0RAC). 

(a ,GT ,b)  Blocks  of  storage  are  obtained  from  the  storage  allocator 

(a,CT,b,c)  with  this  operation. 

In  the  CSL6  system,  b  is  either  a  positive  integer  denot¬ 
ing  the  number  of  words  in  the  desired  block  or  a  data  descrip¬ 
tor  of  a  field  tdiere  such  an  integer  resides,  b  should  be  a 
power  of  2  but  if  it  is  not,  the  next  higher  power  of  2  will 
be  assumed  up  to  a  maximum  of  128  words. 

In  the  CSL/  system,  1>  is  the  same  as  in  the  CSL6  system 
except  that  values  run  from  1  to  32  and  no  assumptions  are 
made.  In  either  system,  b  <  9  causes  an  erior  return  to  the 
system  (ILLSYS). 

Upon  completion  of  the  call  to  the  storage  allocator, 
the  pointer  to  the  requested  block  is  placed  in  field  a_.  If 
£  is  present,  the  contents  of  field  £  prior  to  the  storage 
allocator  call  are  placed  in  field  £.  New  blocks,  when 
obtained  from  the  storage  allocator,  are  completely  cleared 
to  zeros. 

Example:  (A,CT,4) 

When  complete,  "bug"  A  will  hold  the  pointer  to  some 
A -block  Uiich  is  initialized  to  all  zeros. 

Example:  (A  ,GT,A  ,AB) 

Assume  field  B  is  fifteen  (15)  bits  long  and  also  that 
"bug"  A  holds  a  pointer  to  block  N.  After  the  operation  la 
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complete,  "bog"  A  will  point  to  a  tuw  ■'«  -block  and  f  ield  B 
of  the  new  block  will  hold  a  pointer  to  block 

Blocks  of  storage  are  "freed"  or  returned  to  the  storage 
allocator  by  this  BOU  when  they  are  no  longer  in  use. 

a  is  a  f ie Id  vhich  points  to  the  block  of  storage  to  he 
"freed."  If  b  is  present  (not  0),  then  when  the  block  freeing 
operation  is  completed,  the  contents  of  field  b  are  placed  in 
field  a . 

Example:  (A,FR,AB) 

Assume  "bug"  A  points  to  block  M  and  field  AB  holds  a 
pointer  to  block  S.  After  completion  of  this  operation, 
block  M  will  be  placed  in  some  UBL  in  free  storage  and  "bug" 

A  will  hold  a  po inter  to  block  N. 

The  facility  for  duplicating  bloc ks  exists  in  the  next  BOU. 

(a,DP,b)  Field  b  points  to  a  block  in  storage.  A  new  block  of 

storage  of  the  same  number  of  words  is  obtained  from  the 
storage  allocator  and  the  contents  of  the  first  block  are 
copied  into  the  new  block.  A  pointer  to  the  new  block  is 
p laced  in  fie  Id  a . 

Example:  (A,DP,C) 

Assume  that  "bug"  C.  holds  a  pointer  to  some  X -block  M. 
After  the  opera tion  is  complete,  a  new  N -block  K  will  be 
present  containing  the  exact  same  contents  as  block  M  and 
"bug"  A  will  hold  a  pointer  to  block  K. 

In  order  to  maximize  the  amount  of  information  stored  in  a  block,  the  user  is 
allowed  to  recess  the  size  tag  fo:  a  olock. 

(a,BS,b)  This  operation  allows  the  user  to  monitor  the  sizes  of 

blocks  that  he  is  working  with.  I  is  a  data  descr iptor  of 
a  field  vbieh  holds  a  po Inter  to  some  block  of  storage.  The 
BOU  obtains  the  size  of  that  block  of  storage  and  places  it 
in  field  a. 


(a,FM> 

(a.FR.b) 


Example: 


(A.BS.C) 


Assume  "bug"  C  hole's  a  po inter  to  a  K -block.  After 
completion  of  the  operation,  "bug"  A  will  hold  the  integer  K. 

Section  4.4.2  Field  Manipulation  Operations 

We  begin  our  discussions  of  f ield  manipulation  operations  with  the  pointer 
copying  BOU. 

(a,P,b)  This  BOU  causes  the  pointer  contained  in  the  field 

designated  by  b  to  be  copied  into  the  field  designated  by  a. 
All  fields  which  will  contain  pointers  must  be  at  least 
fifteen  (15)  bits  wide. 

Example:  (A,P,AB) 

Assume  field  AB  to  hold  a  pointer  to  block  K.  After 
completion  of  the  operation,  ’’bug"  A  will  hold  a  pointer  to 
block  K.  The  field  AB  will  be  undisturbed. 

We  inherited  the  following  shorthand  notation  for  the  pointer  copying  BOL’  from 
the  original  L6  language. 

(a,b)  A  special  2-element  form  exists  to  aid  in  scanning  down 

strings.  The  2-element  form  produces  the  same  operation  as 
if  the  second  data  descriptor  were  a  concatenation  of  a  and 
b. 


Example:  (A,B) 

This  BOU  produces  the  same  resu’t  as  the  previous 
example:  (A,P,AB). 

For  copying  of  all  other  forms  of  field  contents,  the  field  copy  BOU  is  used. 

(a,E,b)  b  may  be  either  a  signed  dec imal  integer  cr  a  data 

descriptor .  The  contents  of  f ield  b  are  copied  into  the  field 
designated  by  a. 

Uxaa^le:  (A,F.,-23) 

After  completion  of  the  opeiation,  "bug”  A  will  contain 
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I 


(a ,EO,t) 


£  may  be  either  a  signed  oc  t  a  I  1  it<-i  a  1  or  a  da  t  a 
descriptor.  The  contents  ot  fit- Id  c  art-  copied  into  l  i>  Id  a. 


Example: 


(B,H),77) 


After  completion  of  the  operation,;  "hug"  i!  will  contain 


(a.EH.d) 


d  is  a  string  of  up  to  8  ECD  characters,;  right  justified, 
zeros  left  with  spaces  counted,  which  will  be  copied  into 
field  a. 


Example: 


(H,EH,HOLLRITH) 


After  completion  of  the  operation,  "bug”  H  will  contain 
the  BCD  string  HOI.LRITH. 


(a.EF.e) 


e  may  be  either  a  floating  point  literal  conforming  to 
IL1AR  language  specifications  or  a  data  descriptor .  The 
contents  of  field  e  will  be  copied  into  f ield  a. 


Example: 


(0-  ,FF,22. 3E 10) 


After  completion  of  the  operation,  "bug"  C  will  contain 


22.3  x  10 


The  CSLx  system  provides  a  BOU  for  exchanging  the  contents  of  two  fields. 


(a.IC.b) 


The  contents  of  the  f ie Id  designated  b  £  are  Inter¬ 
changed  with  the  contents  of  the  f ield  designated  by  b. 


Example : 


(AC,IC,AP) 


Assume  f ield  AC  =  10jq  and  field  Ah  =  24^.  After 
completion  of  the  operation,  field  AC  will  contain  24^  and 
field  AB  will  contain  I0,q- 

Incorporated  into  the  CSLx  auxiliary  systems  is  a  pushdown  stack  which  will  hold 
the  contents  of  specified  fields  in  the  user's  program.  An  example  of  such  usage  would  te 
saving  and  restoring  the  contents  of  a  "bug"  during  execution  of  a  subroutine. 


(S.K.a) 

(R.RC.b) 


The  user  may  Save  (pushdown)  the  contents  of  field  a  or 
he  may  Restore  (popup)  the  contents  of  field  b. 


Example: 


(S.FC.Al 

(R,FC,B) 


Assume  "bug"  A  holds  the  nucfcer  62^q.  The  f.  st  BOU 
"pushes"  the  62^q  into  the  stack.  The  contents  of  "bug"  A 
wil^be  undisturbed. 

*  The  second  BOU  will  "pop"  the  62jQ  out  of  the  stack  and 

store  it  in  "bug"  B. 

Two  statements  are  provided  to  aid  the  CSL6  system  programmer  in  providing  multiple 
pushdown  and  popup  operations  on  the  system  fie  Id  contents  stack.  The  format  of  the  PUSHDOWN 
primary  statement  is: 

PUSHDOWN ,ABC, CD, 10, 7 7b, -10.0 

The  elements  of  the  statement  are  separated  by  cotmnas  and  may  be  either  data  descriptors 
or  literals  (octal,  decimal,  or  floating  point,  but  not  hollerith). 

The  format  of  the  POPIfP  primary  statement  is: 


POPUP, D.EF.GH.Z 


The  elements  of  the  statement  are  also  separated  by  commas",”  but  they  may  be  data  descrip¬ 
tors  only.  Note  that  the  order  in  which  field  contents  are  "popped"  out  of  the  stack  is  the 
reverse  of  the  order  in  trfiich  they  were  "pushed"  into  the  stack. 

Example:  PUSHDCWN.A.C.C, 

POPUP, C,B,A 

After  both  statements  are  executed,  "bugs"  A,  E,  and  C  will  contain  their  original 

contents . 

The  CSLx  system  also  provides  the  facility  for  allowing  the  user  to  define  and 
operate  his  own  pushdown -popup  data  stacks.  These  operations  will  be  discussed  in  Chapter  10. 
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Section  4.5  Special  Debugging  Aids  -  STATE  and  DUMP 

Because  the  storage  design  of  the  CSLx  system  is  so  different  from  the  standard 
memory  array,  two  BOU  elements  have  been  provided  which  will  dump  required  information  about 
the  status  of  the  user's  CSLx  program. 

(DO, STATE)  The  (DO, STATE)  operation  unit  causes  the  following 

information  to  be  output  on  the  line  printer. 

1.  Name  of  program  and  record  number  of  "do"  operation 
unit. 

2.  Time  since  execution  of  program  began. 

3.  All  current  field  definitions. 

A.  Contents  of  field  contents  pushdown  stack. 

5.  Contents  of  subroutine  calls  pushdown  stack. 

6.  Count  of  blocks  in  free  storage  by  size. 

7.  Contents  of  all  bugs. 

(DO.DUMP)  The  (DO,DUMP)  operation  unit  causes  the  following  infor¬ 

mation  to  be  output  on  the  line  printer: 

1.  All  information  provided  by  the  (DO, STATE)  operation 
unit . 

2.  Memory  contents. 

a.  Pointers  of  strings  of  free  storage  by  block  size. 

b.  Contents  of  all  occupied  storage  blocks  in  octal. 

Neither  dump  will  affect  the  interval  clock. 

Both  options  output  a  message  to  the  console  typewriter  requesting  the  user  to  tvpe 
a  carriage  return  (CR)  to  allow  the  computer  to  continue  execution.  When  control  is  returned 
from  either  BOU,  execution  will  begin  on  the  next  executable  statement  or  unit  followirg  the 
BOU. 
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Chapter  5. 


Logical  Operations  on  Data 


Section  5.1  Overview 


Logical  data  operations  fall  Into  three  classes: 

1.  Bit  manipulation 

2.  Shifts 

3.  Count  and  position  detection 

The  first  class  includes  the  complement  operation  (Section  5.2),  OR  (5.3),  Exclusive  OR 
(5.4),  AND  (5.5)  and  field  substitution  (5.6).  The  second  class  contains  the  left  (5.7) 
and  right  (5.8)  shifts.  The  third  class  contains  the  bit  counting  (5.9)  and  the  bit- 
locating  (5.10)  operations. 
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Section  5.2  The  Complement  Operation 


The  bit  complement  BOU  fetches  the  contents  of  a  field  or  literal ,  complements  by 
bit,  and  stores  the  result  in  a  second  field.  Because  of  the  ones -complement  integer  arith 
metic  and  the  biased  exponent  floating  point  arithmetic  of  the  1604  computer,  the  complemen 
operation  also  may  serve  as  the  negation  operation. 


(a5C,b) 


(a.CD.b) 


(a,CH,b) 


(a.CF.b) 


b  may  be  either  a  signed  oc tal  integer  or  a  data 
descriptor .  The  contents  of  field  b  are  complemented 
on  the  way  co  being  placed  in  f 1 r  Id  £. 

Example:  (ABC,C,53) 

Suppose  that,  field  C  is  a  6-bit  field.  Then  the  octal 
integer  53g  would  be  complemented  to  24g  and  stored  in  VLF 
ABC. 


This  form  is  the  same  as  above  except  that  b  may  be  a 
signed  decimal  integer  or  a  data  descriptor . 

Example:  (/TIME, CP, 460) 

The  decimal  integer  460^0  is  negated  to  -460^  and 
stored  in  field  /TIME 

b  is  interpreted  to  be  a  string  of  up  to  8  BCD  charac¬ 
ters,  right -justified,  zeros  left  with  spaces  counted.  All 
other  considerations  apply  as  with  the  preceding  two  forms. 

Example:  (*KXH,CH,J  B) 

The  holler ith  1  iteral  J  B(4l2062g)  is  complemented 
to  =  <(365715fl)  and  stored  in  f ield  *EXH. 

This  form  is  the  same  as  the  first  two  except  that  b 
may  be  either  a  floating  point  literal  conforming  to  the 
XLI/R  language  specifications  or  a  data  descriptor.  All 
other  considerations  are  the  same  as  with  the  preceding 
three  forms. 

Example:  (ABF  ,CF, -10.23) 

10.23  will  be  stored  in  f ield  ABF.; 
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Section  5.3 


Logical  OR  Operation 


The  logical  OR  data  operation  operates  in  a  bit-wise  manner  according  to  the 
following  truth  table: 


a 

b 

result 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

1 

<«,0,b) 

(a.O.b.c) 


(a.OH.b) 

(a,OH,b,c) 


b  may  be  either  a  signed  octal  integer  or  a  data 
descriptor.  The  contents  of  field  b  are  logically  Ored  with 
the  contents  of  f leld  £.  The  result  is  copied  into  field  £ 
if  it  is  present.  Otherwise,  the  result  returns  to  fie  la  a. 

Example:  (ABE, 0,40b) 

Assume  field  ABE  contains  320g.  After  completion  of 
the  operation,  field  ABE  will  contain  36 0„. 

"  O 

Example:  (ABE  ,0, 40b, C) 

Assume  field  ABE  =  320g.  After  completion  of  the 
operation,  "bug  C"  will  contain  360g.  Field  ABE  will  be 
unaffected. 

In  this  format,  b  is  interpreted  to  be  a  string  of  up 
to  8  BCD  characters,  right  justified,  zeros  left  vith  spaces 
'ounted.  All  other  considerations  are  the  same  as  for  che 
preceding  form. 

Example:  (D,0H,  -  1  -  -  -  -  -) 

Assume  "bug"  D  holds  the  octal  constant  2020002062464fc42g. 
This  is  the  hollerith  literal  -  -  ;  -  BOOK.  After  completion, 
"bug"  D  will  contain  -  -  1  -  BOOK. 
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Section  5.4  Exclusive  OR  Data  Operation 


The  Exclusive  OR  operation  handles  data  in  a  bit-wise  manner  according  to  the 
following  truth  table: 


a 

b 

1 

result 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 

(a,X,b,c) 


(a.XH.b) 

<a,XH,b,c) 


b  may  be  either  a  signed  octal  integer  or  a  data 
descriptor .  The  contents  of  field  b  are  exclusively  Ored 
with  the  contents  of  field  a.  The  result  is  copied  into 
field  c_  if  it  is  present.  Otherwise,  the  result  returns 
to  field  a_. 

Example:  (ACE,X,170B) 

Assume  field  ACE  to  contain  340g.  After  the  operation 
is  complete,  field  ACE  will  contain  230g. 

In  this  format,  b  is  interpreted  to  be  a  string  of  up 
to  8  BCD  characters,  right  justified,  zeros  left  with  spaces 
counted.  All  other  considerations  are  the  same  as  for  the 
preceding  form. 

Example:  ( /TEST, XH, FREE) 

If  field  /TEST  contains  the  Hollerith  constant  FREE, 
then  after  completion  of  the  operation,  field  /TEST  will 
be  zero. 
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Section  5.5  The  Logical  AND  Data  Operation 


The  logical  AND  operation  handles  data  in  a  bit-wise  manner  according  to  the 
following  troth  table: 


a 

b 

result 

0 

0 

0 

0 

1 

0 

i 

0 

0 

i 

1 

1 

b  may  be  either  a  signed  octal  Integer  or  a  data 
descriptor.  The  contents  of  fie  Id  b  are  logically  aNded 
with  the  contents  of  field  a.  The  result  is  copied  into 
fie  Id  £  if  it  is  present.  Otherwise,  the  result  returns 
to  field  a. 

Example:  (/RES.N.777B) 

Assume  field  /RES  holds  37477g.  After  completion, 
field  /RES  will  contain  477g. 

In  this  format,  b  is  interpreted  to  be  a  string  of  up 
to  8  BCD  characters,  right  justified,  zeros  left  with  spaces 
counted.  All  other  considerations  are  the  same  as  for  the 
preceding  form. 


(a,NH,L) 

(a.NSl.b.c) 


(a,N,b) 

(a,N,b,c) 


Example: 


(NAME  ,N’H,  TWO) 


Assume  field  *NAME  hold:  a077„.  After  completion. 

O 

field  *NAME  will  hold  230046..  (TWO  =  232646.3. 

O  o 
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Section  5.6  Logical  Substitution  Operation 


The  logical  substitution  operation  operates  upon  data  in  a  bit-wise  msrner  according 
to  the  following  truth  table: 


a 

b 

m 

result 

X 

y 

0 

X 

X 

y 

1 

y 

(a,U,b,m) 

This 

operation  unit 

allows  selective  substitution 

(a  ,U,b,m,c)  (insertion)  of  any  portion  of  a  field  with  another  fie  Id. 


(a.UH.b.m) 

(a,UK,b,m,c) 


a  is  a  data  description  whose  contents  will  be  substitu¬ 
ted  for.  m  is  either  a  signed  octal.  integer  or  data  descrip¬ 
tor  viiich  provides  a  mask  through  which  the  substitution 
will  be  made.  Each  1-bit  in  the  mask  means  that  the  corres¬ 
ponding  bit  in  field  a.  will  be  substituted  for.  m  is  right 
justified  with  ter os  left. 

b  is  either  a  signed  octal  integer  or  a  data  descriptor 
which  provides  the  data  to  be  substituted  into  a.  If  £  is 
present,  the  new  field  contents  after  substitution  will  be 
placed  in  field  c.  Otherwise,  the  result  will  be  returned 
to  field  £. 

Example:  (A,U,77B,CBA) 

Assume  "bug"  A  holds  the  holleritb  literal  FIEU>= 

Assume  fit  Id  CBA  holds  the  BCD  number  6.  After  completion 
of  the  substitution  operation,  "bug"  A  will  contain  FIELD=  6. 

This  form  is  also  the  same  as  the  first  form  except 
that  b  is  interpreted  to  be  a  string  of  up  to  8  BCD  characters 
right  justified,  zeros  left  with  spaces  counted. 

Example:  (A,Uli ,  77b, 6) 

This  example  is  the  same  as  the  one  above  except  that 
the  BCD  character  6  is  explicitly  stated  as  a  hollerith 
literal. 


Section  5.7 


* 


Logical  Left  Shift  Operation 


Hie  logical  left  shift  operation  allows  information  fr or.  one  f leld  to  be  shifted 
In  the  left  direction  Into  another  field. 


(a,L,b,c) 

(a.L.b.e.d) 


(a,LH,b,c) 
(a,LH,b,c. J) 


b  may  be  either  a  positive  dec lmal  Integer  or  a  data 
descriptor.  The  content  of  field  b  Is  the  number  of  bit 
positions  idiich  field  £  is  shifted  to  the  left.  This 
3-e)ement  form  specifies  that  zeros  are  shifted  in  from 
the  right.  The  result  is  placed  back  in  fit-id  a. 

Excmple:  (A,L,2) 

Assume  "bug"  A  to  hold  the  number  15. j.  After  completion 
of  the  shift,  "bug"  A  will  hold  .  f  we  express  the 

numbers  in  octal,  17g  becomes  74g. 

b  again  specifies  where  the  shift  count  is  found,  £  may 
be  a  signed  octal  integer  or  a  da f »  deacr iptor .  Hie  field 
or  literal  specified  by  £  is  positioned  prior  to  the 
shifting  operation  such  that  the  left  edge  of  £  is  next  to 
the  right  edge  of  field  a.  The  result  after  shifting  is 
placed  in  field  d  if  it  is  present.  Otherwise  the  result  is 
returned  to  field  a. 

Example:  (A.L.b.ACD) 

Assume  fiexd  ATX-'  to  be  six  (6)  hits  long.  Assume  also  that 
field  ADC  holds  the  BCD  character  +  and  "bug"  A  holds  the 
string  ALPHA.  After  the  rfiift,  "bug"  A  will  hold  the  string 
ALPHA+,  Field  ADC  is  undisturbed. 

£  is  interpreted  to  be  a  at* ing  of  up  to  8  BCD  characters, 
right -just  if  led,  zeros  left  with  spaces  counted.  All  other 
considerations  are  the  same  as  the  previous  form. 

Example:  (A,LH,6,+  ) 

This  example  produces  the  same  result  as  the  example 
above  for  the  second  case  where  "bug"  A  contains  the  string 
ALPHA. 
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Section  5.8  Logical  Right  Shift  operation 


The  logical  right  shift  operation  allows  information  from  one  field  to  be  shifted 
in  the  right  direction  into  another  field. 


(a,R,b) 


(*,R.b,c) 

(a.R.b.c.d) 


b  nay  be  either  a  positive  dec ira 1  integer  or  a  data 
descriptor.  The  content  of  field  b  is  the  number  of  hit 
positions  which  field  a_  is  shifted  to  tee  right.  Tnis 
3-element  form  specifies  that  zero'  are  shifted  In  from  the 
left.  The  result  is  piaced  hark  in  field  £. 

rxaraple:  (A.R.i) 

Assume  "bug"  A  holds  the  .imber  1024  rt(2&00  ).  After 

10  O 

the  shift  is  completed,  '‘bug  A  will  hold  64^(100.^. 

o  again  specifies  where  the  shift  count  is  found,  £  niay 
be  a  signed  octal  integer  or  a  data  descriptor.  The  field 
or  literal  specified  by  £  is  positioned  prior  to  the  shifting 
operation  such  tha.  the  light  edge  of  c  is  next  to  the  left 
edge  of  field  £.  The  f icld  width  of  literals  is  assumed  to 
be  the  same  as  field  a.  The  result  after  shifting  is  placed 
in  fie  id  d  if  it  is  present.  Otherwise,  the  result  is 
returned  to  field  a. 


(a,RH,b  c) 
(a,RH,b,c,d) 


Example:  (AC,R,6,A> 

Assume  f leld  AC  is  six  (fc)  birs  wide.  Assume  "bug"  A 
holds  the  string  A LPHA+.  After  the  shift,  fie’d  AC  will 

contain  the  character  "bug"  A  will  no.  be  disturbed. 

£  is  interpret  d  to  be  a  string  of  up  to  P  BCD  char¬ 
acters,  r igbi- just* f ied ,  zeros  left  with  spaces  counted.  All 
other  considerations  are  the  same  as  the  previous  form. 

Exampel:  (AC,RH,6,+) 

This  operation  unit  produces  the  same  result  as  the 
example  above. 
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Section  5.9  Bit  Counting 


(a,OS,b)  The  field  designated  by  b  has  Its  one  bits  counted  and 

the  count  is  placed  In  the  fie  Id  designated  by  a,.  If  no  bits 
of  the  type  required  arc  present,  the  count  is  set  to  xcrc  (0). 

Example:  (A,OS,BC) 

Assume  field  BC  holds  the  octal  number  103463  .  After 

-  8 

completion  of  the  bit  count,  "bug"  A  will  hold  8^. 

(a,ZS,b)  The  field  designated  by  b  has  Its  zero  bits  counted  and 

the  count  la  placed  in  the  field  designated  by  a.  If  no  bits 
of  the  type  required  are  present,  the  count  Is  set  to  *ero(0). 

Example:  (A,ZS,BC) 

Assume  field  BC  Is  eighteen  (18)  bits  wide  and  contains 
the  octal  number  103463^.  After  completion  of  bit  counting, 
"bug"  A  will  hold  the  count  of  10^. 
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Section  5.10  Bif  Position  Detection  Operation 

The  hit-position  detection  operation  units  determine  the  position  of  the  leftmost 
or  rightmost  zero  or  one  bit  in  the  field  designated  by  h.  Positions  are  counted  as  the  1 
position  in  the  1 ield .  not  the  vord  in  uhich  the  f ie Id  resides.  Positions  number  from  1  up, 
left  and  right.  If  no  bit  of  the  type  designated  exists  in  the  field,  the  position  informa¬ 
tion  is  set  to  zero  (0).  When  the  operation  is  completed,  the  position  count  will  be  placed 
in  the  fie  Id  designated  by  a.  In  the  following  sxamples,  assume  that  f  ield  PC  is  twer.ty- 

four  (24)  bits  wide  and  contains  the  number  14061373.. 

o 

(a,LO,b)  This  operation  detects  the  position  of  the  leftmost  one 

bit  in  f ield  b.  The  position  count  is  placed  in  f  ie  Id  a. 

Example:  (A,LO,BC) 

When  complete,  "bug"  A  will  contain  3^. 

(a,lZ,b)  This  operation  detects  the  position  of  the  leftmost  zero 

bit  in  field  b.  The  position  count  is  placed  in  field  a. 

Example:  (A.LZ.BC) 

When  complete,  "bug"  will  contain  1^. 

(a,RO,b)  This  operation  detects  the  position  of  the  righ tmcst  one 

bit  in  field  b.  The  position  count  is  left  in  f ield  £. 

Example:  (a,RO,BC) 

When  complete,  "bug"  A  will  contain  l1(j. 

(a,RZ,b)  This  operation  detects  the  position  of  the  rightmost  zero 

bit  in  field  b.  The  position  count  is  left  in  field  a. 

Example:  (A,RZ,BC) 

When  complete  "bug"  A  will  contain  2^. 
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Chapter  6.  Matheoat ieal  Operations 


Section  6.1  Overview 


The  CSLx  system  provide-  the  standard  set  of  mathenat ical  operations  usually-  found 
in  computer  languages  with  the  exception  of  exponentiation.  They  are: 


1.  Addition  (6.2) 

2.  Subtraction  (6.3) 

3.  Multiplication  (6.4) 

4.  Division  (6.5) 


In  addition,  conversion  from  fixed-point  to  floating-point  and  vice  versa  is  provided. ^ 
An  absolute  value  function  is  provided  for  either  type.  '  ' 


The  type  of  mathematical  operation,  fixed  or  floating-point,  is  stated  by  the 
postfix  on  the  opcode.  Floating-point  operations  always  have  the  postfix  letter  F  attached. 


Because  the  1604  computer  word  is  forty-eight  (48)  bits  long,  arithmetic  operations 
on  VLF  require  that  the  field  be  expanded  to  forty-eight  (48)  bits.  This  is  accomplished  by 
extending  the  leftmost  bit  in  the  field  to  the  left  until  forty-eight  (48)  bits  are  achieved. 
Thus,  the  leftmost  bit  in  a  field  holding  an  arithmetic  quantity  is  treated  as  the  algn  bit 
of  the  field. 


Note  that  sign  extension  dictates  that  integers 

N-l 

to  (2  -l)  where  the  width  of  the  field  is  N  bits.  This 

anywhere  else  in  the  CfLx  system. 


in  f lelds  live 
sign  extension 


in  the  rungt  (- 2 X  S 
feature  does  not  apply 


Section  6./  Addition  Operation 


(a.A.b) 

(a,A,b,c) 


(a.AO.bi 

(a.AO.b.c) 


(a.AF.b) 

(a,AFtb,c) 


b  may  be  either  a  signed  dec imal  integer  or  a  data 
descriptor ■  The  contents  of  tie  Ids  b  ana  a  are  added  as 
integers.;  The  result  is  copied  into  field  c  if  it  is 
present.  Otherwise,  the  result  is  returned  to  field  a. 

Example:  (/SLOT,  A,  10) 

Assume  /SLOT  *  20^.  After  addition,  /SLOT  »  30^., 

The  operations  arc  tie  same  as  the  above  form  except 
that  b  mav  be  either  a  signed  octal  integer  or  a  data 
descriptor . 

Example:  (/SLOT, AO  12) 

Assume  /SLUT  •  24„.  After  addition,  /SLOT  ”  36„. 

o  o 

b  may  be  either  a  floating-point  literal  conforming  to 
the  ILLAR  language  specifications  or  a  data  descriptor.  The 
contents  of  f leld  b  are  added  to  field  a  in  floating-point 
formal.  The  result  is  copied  into  field  £  if  it  is  present. 
Otherwise  the  result  is  returned  to  f ield  a. 

Example:  ( /SLOT, AF, 10.0) 

Assuu-e  /SLOT  »  20.0.  After  floating-point  addition, 
/SLOT  -  30.0. 
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Section  6.3  Subtraction  Operation 


(a.S.b) 

(a.S.b.c) 


(a.SO.b) 

(a,SO,b,c) 


(a.SF.b) 


(a,SF  ,b,c) 


b  may  be  either  a  signed  decimal  Integer  or  a  data 
descriptor .  The  contents  of  field  b  are  subtracted  from 
f le Id  a.-  The  result  is  copied  into  field  c  if  it  is  present. 
Otherwise,  the  result  is  returned  to  field  a. 

Example:  (/SLOT,  S,  10) 

Assume  /SLOT  «  20^.  After  subtraction,  /SLOT  •  10^. 

The  operations  are  the  same  as  the  above  form  except 
that  b  may  be  either  a  signed  octal  integer  or  a  data 
descriptor.- 


Example:  (/SLOT, SO, 12) 

Assume  /SLOT  =  24g.  After  subtraction,  /SMTT  =  12g. 

b  may  be  either  a  floating-point  1 iteral  conforming 
to  the  XLLAR  language  specifications  or  a  data  descriptor. 
The  contents  of  fie  Id  b  are  subtracted  from  field  a  in 
floating-point  format.  The  result  is  copied  into  field  c 
if  it  is  present.  Otherwise  the  result  is  returned  to 
f ie Id  a. 

Example:  ( /'SLOT, SF,  10.0) 

Assume  /SIOT  “  20.0.  After  floating-point  subtraction, 
/SLOT  ■  10.0. 
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Section  6.4  Multiplication  Operation 


(*,M,b) 

(a,M,b,c) 


(a,MO,b) 

(a,MO,b,c) 


<«,MF,b) 

<a,MF,b,c> 


b  may  be  either  a  signed  decimal  integer  or  a  data 
descriptor .  The  contents  ot  fields  b  and  a  are  multiplied 
as  integers.  The  result  is  copied  into  field  c  if  it  is 
present.  Otherwise ,  the  result  is  returned  to  field  a. 

Example:  (/SLOT, M, 10) 

Assume  /SLOT  “  20^.  After  multiplication,  /SLOT  “ 

200^. 

The  operations  are  the  same  as  the  above  form  except 
that  b  may  be  either  a  signed  oc tal  integer  or  a  data 
descriptor . 

Example:  (/SLOT,MO, 12) 

Assume  /SLOT  »  24^.  A~cer  multiplication.  /SLOT  “  310g- 

b  may  be  either  a  floating-point  literal  conforming  to 
the  ILLAR  language  specifications  or  a  data  descriptor..  The 
contents  of  field  b  are  multiplied  with  field  a  in  floating¬ 
point  format.  The  result  is  copied  into  f ie Id  £  if  it  is 
present.  Otherwise  the  result  is  returned  tc  fi»id  a. 

Example:  (/SLOi ,MF , 10.0) 

Assume  /SLOT  “  20.0.  After  floating-point  multiplica¬ 
tion,  /SLOT  *  200.0. 
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Section  fa. 5  Division  Operation 


In  all  cases  of  divide  operations,  the  CSLx  system  will  compile  a  check  foi  a  divisoi 
o£  zero.  When  an  attempt  to  divide  by  zeio  occurs  during  the  execution  of  the  program,  ar.  error 
message  will  appear  and  control  will  be  transferred  to  the  operating  system  (ILLSYS). 


(a,V,b) 

(a.V.o.c) 


(a.VO.b) 

(a,VO,b,c) 


fa.VF.b) 

(a ,VF  ,b  .c) 


b  may  be  either  a  signed  dec lmal  integer  or  a  data 
descriptor  ■  The  contents  of  tie  Id  a  are  divided  by  f  ield  b 
as  integers.  The  result  is  copied  into  field  c  if  it  is 
present.  Otherwise,  the  result  is  returned  to  f ie Id  a,. 

Example:  (/SLOT, V, 10) 

Assume  /SLOT  “  20^.  After  division,  /SLOT  *>  2^. 

The  operations  are  tne  same  as  the  above  form  except 
that  b  m-v  be  either  a  signed  octal  integer  or  c  data 
descriptor.- 

Example:  (/SLOT, VO,  12) 

Assume  /SLOT  *  24g.  *fter  division,  /SLOT  «  2.. 

b  may  be  i  '.ther  a  floating-point  literal  conforming 
to  the  ILLAR  language  specifications  or  a  data  descriptor.. 
The  contents  of  f ield  a  are  divided  by  f ield  b  in  floating¬ 
point  format.  The  result  is  copied  into  field  c  if  it  is 
present.  Otherwise  the  result  is  returned  to  f ielu  a. 

Example:  (/SLOT,VF . 10.0) 

Assume  /SLOT  *  20.0.  *fter  floating-point  division, 
/SLOT  =  2,0. 


Section  b.6  Data  Forint  Conversion 


'a,FX,b)  b  Is  •  date  descriptor  of  a  field  assumed  to  hold  a 

floating-point  format  data  word.  The  BOU  converts  the 
floating-point  word  to  fixed-point  format  and  places  the 
i-ault  in  the  field  designated  by  a. 

Example:  (AC,FX,B) 

Assume  field  AC  to  be  six  (6)  bits  in  length.  Assume 
also  that  "bug”  B  contains  the  number  24.65.  After  com¬ 
pletion  of  the  operation,  field  AC  will  contain  24^. 

(a,FL,b)  This  operation  Is  complementary  to  the  above  form. 

The  contents  of  field  b  are  assumed  to  be  in  fixed-point 
format.  The  BOU  converts  the  fixed-point  word  to  floating¬ 
point  format  and  places  the  result  in  the  field  designated 
by  a. 

Example :  (AD  ,FL,AC) 

Assume  field  AD  to  be  forty-eight  (48)  bits  in  length 
and  field  AC  to  be  eight  (8)  bits  in  length.  Assume  field 
AC  to  contain  the  number  -17^.  After  the  operation  Is 
complete,  field  AD  will  contain  the  number  -17. 00. 
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Section  6.7 
(a.ABSV.b) 


Absolute  Value  Function 


The  absolute  value  of  the  contents  of  field  b  Is 
placed  In  field  a.  a  and  b  are  both  data  descriptors. 

If  field  b  la  a  VLF ,  sign  extension  will  be  performrd 
before  taking  the  absolute  value. 

Example:  (A,ABSV,A) 

Assume  '‘bug”  A  to  hold  -24.6.  After  completion  of  the 
operation,  "bug"  A  will  hold  +24.6. 
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Chapter  7.  Subprograms.  Subroutines  and  Functions 


Section  7.1  Overview 


In  the  ILLSYS  system,  calling  sequences  in  the  IUAR  and  FORTRAN  language  systems 
obey  what  we  will  call  the  FORTRAN  type  calling  sequence: 

1.  A  return  jump  (1604  code)  instruction  is  made  to  the  entry  point 
of  the  subroutine  or  function. 

2.  Only  one  call  may  be  made  to  a  given  subroutine  or  function  at  a  time. 

3.  Argument  transfers  are  made  by  passing  the  address  of  the  argument 
instead  of  the  argument. 

In  the  CSLx  system,  a  new  type  of  subroutine  calling  sequence  called  the  DO  type 
entry  is  provided: 

1.  A  direct  transfer  is  made  to  the  entry  point. 

2.  Calls  to  routiues  are  recursive,  that  is,  the  return  addresses  are  kept 
in  a  last-in-fir st-out  pushdown  stack. 

3.  Argument  transfers  follow  the  FORTRAN  convention. 

4.  Two  types  of  exit  from  the  called  routine  are  provided; 
standard  and  error  exit. 

The  consequences  of  the  first  rule  are  that  any  statement  or  group  of  statements  in 
a  CSLx  program  may  be  treated  as  a  subroutine.  The  second  rule  increases  the  flexibility  of  a 
subroutine  by  allowing  it  to  call  itself.  Fule  four  provides  for  exits  based  on  unusual 
conditions. 

In  this  chapter,  we  discuss  both  the  DO  type  calling  sequence  (Section  7.2)  and  the 
FORTRAN  type  calling  sequence  (7.3).  A  special  form  of  the  FORTRAN  type  calling  sequence,  the 
FUNCTION  subroutine  call  is  treated  in  Section  7.4. 
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Section  7.2  SUBPROGRAM  Opera tiont 


i 

I 

I 

1 

I 

I 


DO  BOU. 


The  BOU  used  to  drive  DO  type  subroutines  In  the  CSLx  system  is,  of  course,  the 


label  is  the  name  of  the  subroutine  to  be  executed. 

This  la  a  program  label  which  may  appear  at  any  place  in  a 
CSLx  program.  The  BOU  causes  an  internal  label  pointer  to 
the  next  BOU  or  statement  after  the  DO  BOU  to  be  pushed  down 
into  the  system  subroutine  call  stack.  This  entry  in  the 
stack  may  be  executed  by  a  DONE  "goto"  as  will  be  explained 
later. 

If  {_  is  present,  it  is  interpreted  as  a  label  to  which 
a  return  from  the  subroutine  may  be  made  by  a  FAIL  "goto"  as 
will  be  explained  later. 

The  action  of  the  DO  BOl'  after  pushdown  is  to  transfer 
control  in  the  CSLx  program  to  the  "called"  routine. 

Either  label  or  £_  may  be  treated  as  external  to  the 
CSLx  program  tdiere  the  DO  BOU  is  present  by  prefixing  the 
label  with  an  astrlsk  (*) . 

Example:  (DO, COUNT) 

After  the  proper  return  address  is  pushed  down  into  the 
subroutine  call  stack,  control  will  be  transferred  directly 
to  the  routine  COUNT.  No  "fail"  exit  will  be  allowed  from 
COUNT. 

Example:  (*CSLMCS, DO, DRIVE) 

After  the  proper  return  address  and  the  external  "fail" 
label  CSLMCS  have  been  pushed  down  in  the  subroutine  call 
st-ck,  control  will  be  transferred  to  the  routine  DRIVE. 

This  form  of  the  DO  BOU  does  not  allow  for  argument  transfers.  A  special  case 
called  the  DOARG  BOU  is  provided  for  this  purpose. 

(DOARC. label. Use)  label  and  f_  are  the  same  type  of  labels  as  described 

above  for  DO  BOU’s.  The  distinction  is  made  by  the  use  of 
DOARG  instead  of  DO  as  the  opcode. 


(DO, label) 
(f, DO, label) 
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1: 


[ 

i 


Thu  arguments  »re  specified  in  the  list .  The  list  Is 
made  up  of  data  descriptors  or  literals  separated  by  commas 
and  terminated  by  the  ")"  of  the  operation  unit.  No 
holler  1th  literals  may  be  placed  in  the  list. 

Example:  (DOMIC, TIME, 4  7B) 

The  routine  TIME  is  driven  with  the  argument  4  7 

O 

Examp le :  (ENDFILE ,DOARG .READTAPE ,32032b,  /BUFFER , 10) 

The  routine  READTAFE  is  driven  with  the  arguments 
32032g,  BUFFER  and  19^.  The 'fail"  exit  label  ENDFILE 
is  also  provided. 

Two  system  defined  "goto"  elements  provide  the  means  of  return  from  DO  type  sub¬ 
routines. 

DONE  The  encountering  of  a  DONE  "goto"  causes  essentially  a 

subroutine  type  return  transfer  of  program  control.  The 
transfer  point  is  obtained  by  a  popup  of  one  element  from 
the  subroutine  call  stack.  If  no  element  exists,  an  error 
return  will  be  made  to  ILLSYS. 

A  DONE  "goto"  terminates  the  statement  in  which  it 
occurs.  The  "goto"  also  compiles  an  end  to  any  input/output 
(I/O)  operation  area  that  may  be  in  force  at  that  point 
(Chapter  11).  This  I/O  end  operation  is  executed  before 
the  transfer  of  the  "goto." 

FAIL  The  encountering  of  a  FAIL  "goto"  causes  an  error 

return  transfer  from  a  subroutine.  The  transfer  point  is 
obtained  by  a  popup  of  one  element  from  the  subroutine  call 
stack.  If  no  element  exists,  an  error  return  is  made  to 
ILLSYS.  An  error  message  and  return  to  ILLSYS  will  be  made 
if  no  FAIL  entry  is  found  in  the  element  popped  from  the 
stack. 

Note  that  each  element  from  the  subroutine  call  stack 
may  contain  both  DONE  and  FAIL  transfer  points. 

A  FAIL  "goto"  terminates  the  statement  in  which  it  occurs. 
The  "goto"  also  compiles  an  end  to  any  I/O  operation  area 

# 
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that  nay  be  in  force  at  that  point  (Chapter  11).  This  I/O 
end  operation  will  be  executed  before  the  transfer  of  the 
goto* 

Examples  of  usage  will  be  made  in  Chapter  12  where  we  intend  to  give  CSLx  programming 

examples. 

Facility  for  entering  a  program  or  subroutine  at  some  entry  point  other  than  at  the 
header  card  by  use  of  a  DO  or  DOARG  BOU  is  provided  by  the  DO  ENTRY  declarative  statement. 

The  statement  format  is  as  follows: 

label  DO  ENTRY 

label  DO  ENTRY, NOPREAMBLE 

A  DO  ENTRY  point  may  be  declared  in  either  a  PROGRAM,  SUBROUTINE  or  SUBPROGRAM  at  any  point 
desired.  The  first  form  will  cause  parameter  setting  operations  when  entered  If  there  are 
arguments  specified  in  the  header  record.  The  second  form  will  cause  parameter  setting  opera¬ 
tions  to  be  ignored  for  that  entry  point. 

The  label  attached  to  a  DO  ENTRY  statement  will  be  tagged  as  a  global  entry  point 
which  can  be  accessed  from  programs  outside  the  program  where  the  entry  point  is  defined. 

The  DO  ENTRY  point  may  only  be  accessed  by  either  a  DO  or  a  DOARG  BOU  operation.  Exit  from 
the  section  of  code  headed  by  the  DO  ENTRY  statement  must  be  performed  by  either  the  DONE 
or  FAIL  "goto"  operations.  This  requirement  is  also  met  by  the  END  statement  of  a  SUBPROGRAM 
program. 
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Section  7.3  Fortran  type  Subroutine  Operations 


The  calling  sequence  for  a  FORTRAN  type  subroutine  is  specified  by  the  CALL  primary 
statement  The  .'ormat  of  the  CALL  primary  statement  is  as  follows: 

CALL,  NAME(list) 

NAME  is  the  name  of  the  rcutlre  to  be  called.  NAME  Is  always  an  external  program  label 
(no  required) . 

The  must  be  present  to  separate  CALL  from  NAbC.  The  "list"  may  or  may  not  be 
present.  The  format  of  the  "liat"  is  simply  a  string  of  data  descriptors,  literals  (no 
hollerith)  or  program  labels.  Two-way  transfers  of  information  via  any  one  element  of  the  "list" 
Is  possible  for  all  element  forme  except  field  strings.  The  user  must  be  responsible  for  not 
destroying  literal  arguments  through  return  transfer  usage. 

If  the  list  is  present,  it  must  be  enclosed  by  and  ")".  If  only  the  "("  and  ")" 
are  present,  the  calling  sequence  will  establish  that  the  last  '’list"  uaed  in  a  CALL  to  routine 
NAbE  la  used  for  this  CALL. 

We  remind  the  user  that  only  one  type  of  return  is  allowed  from  FORTRAN  type 
subroutine.  Control  will  be  returned  to  the  next  CRLx  statement  after  the  CALL  statement. 

E' .ample :  CALL.TIHE 

This  ia  the  simple  form  with  no  arguments.  The  routine  TIbE  is  executed  and  control 
returned  to  the  next  CSLx  statement. 

Example:  CALL,NAbEl(A,ABC,/BC,*TIlC,lO,77b,10.A> 

CALL, NAME 1() 

The  first  CALL  to  NAbEl  also  carries  with  it  the  arguments: 

1.  "bug"  A 

2.  field  ABC 
Internal  FWF  BC 

4.  External  FWF  TIME 

5.  integer  number  10 

6.  octnl  nuofrer  77 

7.  floating-point  number  .0.4 


66 


The  second  CALL  to  SAME1  causes  the  same  arguments  o £  the  first  CALL  statement  to  be 
used  as  NAME1  is  executed.  This  form  executes  a  little  faster  as  no  argument  address  planting 
needs  to  be  performed. 

Examples  of  usage  will  Is  given  in  Chapter  12  where  we  intend  to  give  CSLx  programming 

examples. 


Facility  for  enteri'.g  a  program  cr  subroutine  at  some  entry  point  other  than  at  the 
head..:  card  b>  use  of  a  F0R1RAX  type  calling  sequence  is  provided  by  the  CALL  ENTRY  declarative 
statement.  The  statement  foimat  is  as  follows: 

label  CALL  ENTRY 

label  CALL  ENTRY,  NOPREAMBLE 

A  CALL  ENTRY  point  may  be  declared  in  either  a  PROGRAM  or  SUBROUTINE  at  any  point.  CALL  ENTRY 
statements  raa£  not  be  used  in  SUBPROGRAM  programs.  The  first  form  of  the  statement  will  cause 
parameter  setting  operations  when  entered  if  there  ere  arguments  specified  in  the  header  record. 
The  second  form  will  cause  parameter  setting  ocerations  to  be  ignored  for  that  entry  point. 

The  label  attached  to  a  CALL  FNTRY  statement  will  be  tagged  as  a  global  entry  point 
which  can  be  accessed  from  programs  outside  the  program  where  the  entry  point  la  defined. 

The  CALL  ENTRY  point  may  only  be  accessed  by  a  FORTRAN  type  calling  sequence.  Exit  from  th" 
program  entered  at  the  CALL  ENTRY  statement  must  be  through  the  END  stateme.it  of  the  associated 
program  or  subroutine. 
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Section  7.4  Fortran  type  Functions 


A  special  version  of  the  FORTRAN  tvpe  calling  sequence  routine  exists  and  is  called 
a  FUNCTION  routine.  The  calling  sequence  is  the  same  as  a  FORTRAN  tvpe  subroutine  but  the 
return  of  the  result  of  execution  is  made  b.-  leaving  the  one  (1)  word  result  in  the  1604 
computer  main  arithmetic  register. 

The  CSL  system  provides  the  FUNC  BOU  which  allows  the  calling  of  a  FUNCTION  routine 
and  placement  of  the  execution  result  in  some  f ie Id  for  further  processing  by  the  CSLx  program. 

(a,FUNC,name,l!st)  The  name  of  the  FUNCTION  routine  is  name  and  will  always 

te  defined  as  an  external  label  (no  needed). 

a  is  a  data  descriptor  where  the  result  of  the  FUNCTION 
will  be  placed  upon  completion  of  its  operations,  list  is  an 
argumencs  list  constructed  in  the  sane  nanner  as  in  the 
DOARC  BOU.  The  arguments  are  determined  by  the  FUNCTION 
routine's  requirements. 

Example:  (A,FUNC,SQRT,4 .0) 

The  SQRT  of  4.0  is  computed  and  returned  to  "bug''  A 
upon  completion  of  the  operation. 

Appendix  B  contains  the  necessary  forms  to  allow  usage  of  all  the  standard  FORTRAN 
system  functions. 
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Chapter  8.  Control  Transfer  Operation? 


Section  8.1  Overview 


Ue  previously  discussed  the  "goto"  in  Section  3.5  for  use  in  effecting  unconditional 
transfers  of  control  between  segments  of  CSIos  programs. 

Section  8.2  discusses  the  "assigned"  TRANSFER  primary  statement  and  Section  8.3 
discusses  the  "computed"  TRANSFER  primary  statement.  These  two  statements  are  analogous  to 
the  "assigned"  and  "computed"  GO  TO  statements  in  the  FORTRAN  language  system.  Both  statements 
provide  dynamic  control  transfers  during  execution  of  a  CSLac  program. 
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Section  8.2  "Assigned”  TRANSFER  Operation 


The  format  of  the  "assigned"  TRANSFER  primary  statement  is  as  follows: 

TRANSFER  (aa) 

aa  is  the  up  to  eight  (8)  BCD  character  statement  label  attached  to  a  transfer  "goto”  variable. 
This  label  must  not  be  used  for  any  other  purpose  in  the  CSLx  program  where  it  occurs. 

Since  a£  is  in  effect  a  special  type  of  data  word,  we  use  a  special  primary  statement 
to  change  the  value  of  aa: 

SWITCH,  aa,  bb 

The  SWITCH  primary  statement  sets  the  contents  of  transfer  "goto"  variable  aa  to  the  statement 
label  bb.  When  the  TRANSFER  (aa)  statement  is  executed,  program  flow  is  transferred  to  the 
CSIx  pr~gram  statement  labeled  bb.  An  error  return  is  made  to  ILLSYS  if  no  assignment  has 
been  made  to  aa. 

External  program  labels  may  be  used  provided  they  are  prefixed  by  an  asterisk  (*)  or 
declared  as  external  FWF. 

Example:  SWITCH .ALPHA, END I 

TRANSFER  (ALPHA) 

When  execution  of  the  TRANSFER  statement  occurs,  control  will  be  transferred  to  the 
statement  labeled  ENDI. 
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Section  8.3  "Computed"  Transfer  Operations 


The  "computed"  TRANSFER  primary  statement  achieves  dynamic  transfer  control  by  sampling 
the  value  of  some  designated  integer  field.  The  general  format  Is: 

TRANS  rE.,  (£1,  £2 . in)  index 

The  list  £1,  £2 . £n  is  made  up  of  statement  labels,  each  of  which  may  be  Internal  or  external 

to  the  current  CSLx  program.  External  labels  raj  at  either  be  declared  as  external  FWF  or  be 
prefixed  wich  an  asterisk  (*) . 

Index  is  a  data  descriptor  for  some  field  where  an  integer  number  in  the  range  of  -  » 
to  N-l  where  there  are  N  labels  in  the  list.  12  the  contents  of  index  are  negative,  the 
TRANSFER  statement  is  not  executed.  Program  execution  continues  at  the  next  program  statement. 
If  the  contents  of  index  are  >N,  then  an  error  will  be  declared  and  control  transferred  to 
the  TLLSYS  monitor  CSLMCS.  Otherwise,  control  will  be  transferred  to  statement  t.  &  . 

Example:  TRANSFFR(UP,DOWH,OUT)I 

If  "bug"  1=0,  control  transfers  to  the  statement  labeled  UP.  If  "bug"  I  ■  1, 
control  goes  to  statement  DOWN.  No  transfer  occurs  in  "bug"  I  contains  a  negative  number. 

There  i6  a  short  form  of  the  "computed"  TRANSFER  statement  that  allows  a  binary  choice 
of  control  transfer; 

TRANS FER( label)  indax 

If  field  index  contains  a  positive  number,  control  will  go  to  statement  labeled  label. 

Example:  TRANSFER (SI) I 

TRANSFER(BETA)J 
ALP! LA  .... 


31  TRANSFER (ALP HAlJ 
BETA  .... 


The  above  sequence  of  statements  solves  the  following  truth  table 


1  J  Transfer 

to  statement 


ALPHA 

+  BETA 
+  -  BETA 

+  +  ALPHA 
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Chapter  9.  Relational  Test  Operations 


Section  9.1  Overview 

In  this  chapter,  we  will  discuss  the  relational  test  operation  units  (TU)  which  are 
used  in  decision  statements  (Section  3.7)<  The  first  TU  discussed  is  the  pointer  equality 
TU  (Section  9.2).  The  second  TU  allows  checking  of  block  size  (9.3). 

Next  to  be  discussed  are  four  (4)  mathematical  relationship  TU's: 


1.  Equality 

(Section  9.4) 

2.  Inequality 

(Section  9.5) 

3.  Greater  Than 

(Section  9.6) 

4.  Less  than  or  equal 

(Section  9.7) 

The  last  two  TU's  are  logical  in  nature  and  test  for  patterns  of  ones  (9.8)  or  zeros  (9.9). 

The  reader  will  note  that  the  opcode  fields  of  the  TU  nay  be  the  sane  as  those  of 
some  BOU's.  The  distinction  is  nade  simply  upon  the  condition  that  the  TU  muat  appear  la  a 
decision  statement  after  the  statement  mnemonic. 
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Section  9.2  Pointer  Equality  Test 


A  special  test  unit  (TU)  is  provided  for  checking  equality  between  point »  s .  This 
lends  itself  to  clarification  of  the  language  tdten  being  read  and  also  protects  against 
possible  error  due  to  the  design  of  the  1606  computer  (some  pointers  might  not  appear  equal 
even  though  in  fact  they  were). 

(a,P,b)  a  and  b  must  be  data  descriptors.  The  fields  contain 

pointers  which  are  compared  and  if  equal,  the  TU  registers 
a  "yes"  vote.  Otherwise,  the  TU  says  "no." 

Example:  (A,P,BC) 

Assume  "bug”  A  and  field  BC  hold  pointers.  If  the 
pointer  in  "bug"  A  points  to  the  same  block  as  the  pointer 


in  field  BC,  a  "yes"  vote  will  be  recorded 


Section  9.3 


Block  Site  Test 


a  is  i  data  descriptor  of  a  field  that  contains  a 
pointer.  The  site  of  the  block  which  the  pointer  references 
Is  compared  to  the  contents  of  field  b  and  if  equal,  a  "yes" 
vote  is  recorded.  Otherwise,  a  "no"  vote  is  taken  by  the 
TO. 


b  may  be  either  a  positive  decimal  Integer  or  a  data 
descriptor.  Successful  values  of  the  contents  of  field  b 
are  powers  of  2  (max  128)  In  CSL6  and  1  to  32  In  CSL7. 

Exenple:  (AT,BS,8)  (CSL6) 

(AT.BS.13)  (CSL7) 

Assume  field  AT  holds  a  pointer  to  16-block  K.  Both 
TU's  will  register  "no"  votes. 


75 


Section 


<«,E,b) 


(a,EO,b) 


(a,EH,b> 


(•,EF,b) 


.4  Pete  Equality  Test 

This  TU  compile*  *  vote  on  the  mathematical  equality  of  two  (2)  data  items. 

a  is  a  data  descriptor,  b  may  be  a  signed  dec lma 1 
integer  or  a  data  descriptor.  The  contents  of  field  a  are 
compared  to  the  contents  of  field  b  and  if  equal,  the  Tl’ 
votes  "yes."  Otherwise,  the  TU  votes  "no." 

Example:  (/ACT.E.-22) 

Assume  fie  Id  /ACT  “  *20^.  The  TU  will  vote  "no." 

b  may  be  either  a  signed  octal  integer  or  a  data 
descriptor.  All  other  considerations  are  the  same  as  the 
previous  form. 

Example:  (/ACT.E0.-24) 

Assume  field  /ACT  -  -20^.  The  TU  will  vote  "yes." 

h  is  interpreted  to  be  a  string  of  up  to  8  BCD  char¬ 
acters,  right- justified,  zeros  left  with  spaces  counted. 

All  other  considerations  are  the  same  as  for  the  two  previous 
forme: 

Example:  (A,EH,TIME) 

Assume  "bug”  A  holds  the  string  CLOCK.  The  TU  will 
vote  "no". 

b  may  be  either  a  floating  point  literal  conforming 
to  the  ILLAR  language  specifications  or  a  data  descriptor. 

All  other  considerations  are  the  same  as  for  the  three 
previous  forms. 

Example:  (D.EF.26.145) 

Assume  "bug”  D  holds  the  number  26.1451.  The  TU  will 
vote  "no". 


76 


Section 


(a.N.b) 


'a.NO.b) 


(«,NH,b) 


(a.NF.b) 


* 


.5  Data  Inequality  Test 

This  TU  compile*  a  vote  on  the  mathematical  Inequality  between  two  (2)  data  Items. 

i  it  i  data  descriptor.  b  may  be  a  signed  decimal 
Integer  or  a  data  descriptor.  The  contents  of  field  *  are 
compared  to  the  contents  of  field  b  and  If  not  equal,  the  TU 
votes  "yes."  Otherwise,  the  TU  votes  "no." 

Example:  (/ACT, N, -22) 

Assume  field  /ACT  =»  -2*^.  The  TU  will  vote  "yes." 

b  may  be  either  a  signed  octal  Integer  or  a  data 
descriptor.  All  other  considerations  are  the  same  as  the 
previous  form. 

Example:  (/ACT, NO, -24) 

Assume  field  /ACT  -  -201().  The  TU  will  vote  "no." 

b  Is  interpreted  to  be  a  string  of  up  to  8  BCD  char¬ 
acters,  right- justified,  zeros  left  with  spaces  counted. 

All  other  considerations  are  the  same  as  for  the  two 
previous  forms. 

Example:  (A.NH.TIME) 

Assume  "bug"  A  hold*  the  string  CLOCK.  The  Tl’  will 
vote  "yes". 

b  may  be  either  a  floating  point  literal  conforming  to 
the  ILIAR  language  specifications  or  a  data  descriptor.  All 
other  considerations  are  the  same  as  for  the  three  previous 
forms . 

Example:  (D, NT, 26. 145) 

Assume  "bug”  D  holds  the  number  26.1451.  The  TU  will 
vote  "yes”. 
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Section  9.6  Greater  Than  Test 

This  TU  coop 11 eft  a  vote  on  whether  one  data  item  is  mathematically  greater  then 
another  data  item. 

(a,G,b)  a  la  a  data  descriptor,  b  may  be  a  signed  decimal 

Integer  or  a  data  descriptor.  The  contents  of  field  a  are 
compared  to  the  contents  of  field  b  and  If  a  >  b,  the  TU 
votes  "yes."  Otherwise, the  TU  votes  "no." 

Example:  (/ACT, G, *22) 

Assume  field  /ACT  “  -20^.  Th*  vote  "yea". 

(a,GO,b)  b  may  be  either  a  signed  octal  integer  or  a  data 

descriptor.  All  other  considerations  are  the  sane  as  the 
previous  form. 

Example:  (/ACT, GO, -24) 

Assume  field  /ACT  ■  -20^.  The  TU  will  vote  "no." 

(a.GH.b)  b  Is  Interpreted  to  be  a  string  of  up  to  8  BCD  char¬ 

acters,  right- justified,  zeros  left  with  spaces  counted. 

All  other  considerations  are  the  same  as  for  the  two  previous 
forms. 

Example:  (A,GH,TIME) 

Assume  "bug"  A  holds  the  string  CLOCK.  The  TU  will 
vote  "yes". 

(a,GF,b)  b  nay  be  either  a  floating  point  literal  conforming  to 

the  ILLAR  language  specifications  or  a  data  descriptor.  All 
other  considerations  are  the  same  as  for  the  three  previous 
forms. 

Example:  (D,GF,26. 145) 

Assume  "bug"  D  holds  the  number  26.1451.  The  TU  will 
vote  "yes". 
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This  TU  compiles  a  vote  on  whether  one  date  item  It  mathematically  less  than  or  equal 
to  another  data  item. 

(a,L,b)  a  is  a  data  descriptor,  b  may  be  a  signed  decimal 

integer  or  a  data  descriptor.  The  contents  of  f leld  a  are 
compared  to  the  contents  of  field  b  arid  if  a  <  b,  then  TU 
votes  "yes."  Otherwise,  the  TU  votes  "no." 

Example:  (/ACT, 1,-22) 

Assume  field  /ACT  “  -2#^  .  The  TU  will  vote  "no." 

(a,LO,b)  b  may  be  either  a  signed  octal  integer  or  a  data 

description.  All  other  considerations  are  the  same  as  the 
previous  form. 

Example:  (/ACT.L0.-24) 

Assume  field  /ACT  “  -2#ltf.  The  TU  will  vote  "yes". 

(a,LH,b)  b  is  interpreted  to  be  a  string  of  up  to  8  BCD  char¬ 

acters,  right- justified,  zeros  left  with  spaces  counted. 

All  other  considerations  are  the  same  as  for  the  two 
previous  forms. 

Example:  (A,LH,TI>E> 

Assume  "bug"  A  holds  the  string  CLOCK.  The  TU  will 
vote  "no".- 

(a,LF,b)  b  may  be  either  a  floating  point  1 itera 1  conforming  to 

the  I  LIAR  language  specifications  or  a  data  descriptor.  All 
other  considerations  are  the  same  as  for  the  three  previous 
forms . 

Example:  (D,LF,26. 145) 

Assume  "bug"  D  holds  the  number  23.1451.  The  Tl'  will 
vote  "no". 


Section  9.8  Ones  Pattern  Test 


This  TU  compiles  «  vote  o')  whether  the  pattern  of  one-bits  In  one  data  Item  is 
Included  In  another  data  Item. 


(a,0,b)  a  Is  a  data  descriptor,  b  may  be  a  signed  octal 

integer  or  a  data  descriptor.  A  "yes"  vote  Is  registered  by 
the  TU  if  a  has  one  bits  in  all  of  the  positions  that  b  has 
one  bits.  Otherwise,  a  "no"  vote  is  recorded. 

Example:  (0,0,146) 

Assume  "bug"  E  holds  the  number  346146  .  The  TU  will 

o 

vote  "yes".- 

(a,0H,b)  b  is  interpreted  to  be  a  string  of  up  to  8  BCD  char¬ 

acters,  right- justified,  zeros  left  with  spaces  counted. 

All  other  considerations  are  the  same  as  the  previous  form. 

Example:  (H,0H,ED) 

Assume  "bug"  H  holds  the  string  TRIED.  The  TU  will 
vote  "yes." 
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Section  9.9  Zeros  Pattern  Test 


This  TU  compiles  a  voti  on  whether  the  pattern  of  zero-bits  in  one  data  item  ia 
inc luded  in  another  data  item. 

(a,Z,b)  a  is  a  data  descriptor,  b  may  be  a  signed  octal 

integer  or  a  data  designation..  A  "yes"  vote  is  registered 
by  the  Tl’  if  fie  Id  a  has  zero  bits  in  all  of  the  positions 
that  b  has  zero  bits..  Otherwise,  a  "no"  vote  is  recorded. 

Example:  (K,Z,401) 

Assume  "bug"  K  holds  the  number  107301..  The  TC  will 
vote  "no". 

(a,ZH,b)  b  is  interpreted  to  be  a  string  of  up  to  8  BCD  char¬ 

acters,  right- justified,  zeros  left  with  spaces  counted. 

All  other  considerations  are  the  same  as  the  previous  form. 

Example:  (P,ZH, TRIED) 

Assume  "bug"  P  holds  the  string  ED.  The  Tl!  will  vote 
"yes".: 
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Chapter  10.  User  Pushdown-Popup  Data  Stacks 


Section  10. 1  Overview 

The  CSlcc  system  provides  automatlcslly  one  (1)  data  push down -popup  stack  where  data 
may  be  temporarily  stored.  Further  capability  far  this  type  of  operation  is  provided  in  the 
uaer  defined  stack  system. 

The  user  performs  three  operations  concerning  his  own  defined  stacks: 

1.  definition  by  labelling  (Section  10.2) 

2.  pushdown  operations  (Section  10.3) 

3.  popup  operations  (Section  10.4) 

A  maximum  of  fifty  (50)  user  stacks  may  be  defined. 

The  lengths  of  the  stacks  are  bounded  only  by  the  limits  of  unused  memory  and  the 
nw&er  of  "free"  blocks  available  from  the  storage  allocator. 
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Section  10.2  Definition  of  a  User  Stack 


The  CSLx  user  "defines"  a  user  stack  by  assigning  a  label  as  follows  with  the 
DEFSTACK  primary  statement: 

DEFSTACK,  stackl,  s tack2 ,  stacks 

stackl . stack?!  are  BCD  program  labels  of  up  to  8  characters  by  which  the  stacks  will  be 

referenced.  All  user  stacks  will  be  open-ended  to  the  limit  of  available  core  storage.  That 
is,  as  a  otack  needs  to  be  extended,  it  will  be  by  adding  one  more  block  of  storage.  As  stacks 
are  emptied,  their  "freed"  sections  (storage  blocks)  will  be  returned  to  the  storage  allocator 
for  use  elsewhere. 

User  stack  "def tuition"  is  n^t  g lobal  in  nature.  This  dictates  that  the  same 
"definition"  for  a  giver,  user  stack  must  be  given  in  every  program  of  a  program  set  where  that 
user  stack  will  be  used.  During  execution  of  a  program  set,  all  "definitions"  of  a  given 
user  stack  will  refer  to  the  exact  same  stack  in  lemory. 

Example:  DEFSTACK,  ALPHA,  BETA 

User  stacks  ALPHA  and  BETA  may  now  be  referenced. 

Note:  In  order  for  proper  initial  setup  of  the  user  stack  system  to  occur,  at  least 
one  (1)  stack  must  be  defined  in  the  PROGRAM  of  e  program  set. 
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Section  10.3  Pushdown  Operation  on  a  User  Stack 


Data  may  be  pushed  dovn  into  a  user  stack  by  using  the  STACK  primary  statement: 

STACK,  stakname,  list 

stakname  is  a  label  previously  attached  to  one  of  the  user  stacks.  A  compiler  error  vill  result 
if  the  stack  has  not  been  "defined".,  list  is  a  list  of  data  descriptors  or  literals  (no 
hollerith)  similar  to  the  lists  for  the  PUSHDOWN  statement.  The  elements  of  the  list  specify 
f ie Ids  which  the  user  desires  to  pushdown  in  the  indicated  stack. 

Example:  STACK,  BETA,  1,  77B,  10.83,  A,  /TIME 

The  top  five  (5)  items  in  user  stack  BETA  will  be.  In  order: 

1.  contents  of  field  /TIME 

2.  contents  ot  "bug"  A 

3.  literal  10.83 

4.  literal  77g 

5.  literal  l 
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Section  10.4  Popup  Operations  on  a  User  Stack 

Data  is  popped  up  out  of  a  user  stack  by  using  the  UNSTACK  primary  statement ; 

UNSTACK,  stakname,  emptyext,  Hot 

stakname  is  the  name  of  a  previously  "defined"  user  stack  from  vdilch  the  user  desires  to  remove 
data  (popup).  If  the  stack  has  not  been  previously  defined,  a  costlier  error  will  result.  If 
the  stack  is  empty,  control  of  the  user  program  will  be  transferred  to  emptyext  trtiich  must  be 
a  statement  labe’.  The  user  nay  find  out  how  many  elements  cf  the  list  were  filled  prior  to 
the  emptyext  by  accessing  the  filled  count  in  either  external  fields  L6STKCT  (CSL6)  or 
L7STKCT  (CSL7).  list  is  a  list  of  data  descriptors  where  the  user  desires  the  data  being 
popped  up  from  the  stack  to  be  stored. 

The  emptyext  transfer  point  and  the  filled  count  locations  make  the  user  stacks 
somewhat  more  flexible  than  the  system  supplied  data  stack.  This  advantage  Is  offset  by  die 
fact  that  user  stack  operations  are  slower  than  system  staclt  operations. 


Example:  UNSTACK,  BETA,  ERROR,  A,  B,  C,  D,  E 


Assume  user  stack  BETA  was  loaded  by  the  STACK  statement  in  Section  10.3. 
all  operations  are  complete: 


Then,  vdien 


1. 


2. 


3. 


5. 


"bug"  A  holds 
"bug"  B  holds 
"bug"  C  holds 
"bug"  D  he  Ids 
"bug"  E  holds 


the  contents  of  field  /TIM 
the  former  contents  of  "bug"  A 
10.83 

778 

1 
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Chaptar  11«  ■'  i /Output  of  SCO  Information  with  Format  Conversion 


Section  11.1  Overview 


The  CSIjc  system  provides  statements  for  format  controlled  I/O  operations  only.  All 
other  forms  of  input/output  may  be  used  by  appropriate  CALI,  statements  to  the  ILLSYS  input/ 
output  routines. 

The  use  of  the  I/O  statements  is  broken  down  into  three  phases: 

1.  Initialization 

2.  Data  fetch  or  storage 

3.  Termination 

the  three  (3)  phases  all  apply  to  either  input  or  output. 

The  statements  for  initialization  are  described  in  Section  11.2  followed  by  the  data 
fetch  and  store  BOU's  (11.3).  Section  11.4  ends  the  discussion  by  describing  the 
termination  phase. 

The  CSLx  user  should  familiarize  himself  with  the  FORTRAN’  language  system  FORMAT 
statement.  The  FORMAT  statement  for  the  CSLx  system  is  identical  and  therefore,  the  user  is 
directed  to  the  FORTRAN  manual  for  detailed  information. 
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Section  11.2  Initialization  of  Input/Output  Operations 


If  the  reader  is  familiar  with  the  FORTRAN  language,  he  will  remember  that  I/O  occurs 
within  single  statement  where  all  data  items  and  the  controlling  format  are  tied  together  in 
a  common  specification.  In  the  CSLx  system,  a  great  deal  more  flexibility  is  achieved  by 
separately  specifying  format  and  data  items. 

Each  ard  every  FORMAT  statement  controls  idiat  we  will  call  an  input /output  area 
f I/O  areal .  The  I/O  area  begins  with  either  an  INPUT  or  an  OUTPUT  pr imary  statement  and  ends 
when  properly  terminated  (Section  11.4).  Also  associated  with  each  I/O  area  is  an  input  or 
output  medium. 

The  formats  of  th*  INPUT  and  OUTPUT  prtc.rv  statements  are  as  follows: 

INPUT,  Imedium,  format,  end»I 
OUTPUT,  Omedium,  format  end”0 

AH  three  arguments:  Imedium(Omedium) .  format  and  end*Ifend#Q)  are  statement  label  in  form. 
format  refers  to  the  controlling  FORMAT  statement. 

Imedium  , Omedium)  may  represent  one  of  two  ways  for  specifying  an  input (output) 
medium.  The  first  way  is  an  explicit  statement  of  the  type  of  input(output)  unit. 

For  input: 


1.  PAPER  TAPE 

F 

paper  tape  reader 

PT 

(flexowriters) 

2.  TYPEWRITER 

T 

console  typewriter 

3.  MAC  TAPE  x 

x  magnetic  tape  (BCD  mode) 

(x  =  2,  3,  ....  8) 

4 .  TELETYPE 

Y 

paper  tape  reader 

TTY 

(teletype) 

For  output: 

1.  PAPER  TAPE 

F 

paper  tape  punch 

PT 

(f lexovr iter) 

2.  TYPEWRITER 

T 

console  typewriter 

3.  MAG  TAPE  x 

x  magnetic  tape  (BCD  mode) 

4 .  PRINTER 

P 

printer-format  control 

PRINTER  Q 

Q 

no  format  control 

PRINTER  0 

0 

no  line  count 

5.  TELETYPE 

Y 

paper  tape  punch 

TTY 

(teletype) 
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The  second  wmy  in  which  Imedium  (Qmedium)  may  be  specified  is  as  a  data  descriptor  of 
a  field  which  contains  the  single  character  logical  unit  code  as  indicated  in  the  canter 
column  above.  The  code  is  right-justified  with  seros  left  in  the  field.  This  second  specifi¬ 
cation  is  assumed  by  the  CSLx  compiler  if  Imedium  (Otnediumj  is  not  one  of  the  above  labels. 

The  endftl  (cnd#0)  parameter  is  used  for  termination  of  the  I/O  area  and  will  be 
discussed  in  Section  11.4. 

The  CSlx  progranrier  must  remember  that  an  input  I/O  area  may  not  overlap  an 
output  I/O  area.  A  compiler  diagnostic  will  occur  if  this  happens.  Any  errors  occurring  in  a 
FORMAT  statement  will  in  all  probability  not  be  found  until  execution  time. 
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Section  11.3 


Data  Fetch  and  Store  In  An  I/O  Operation 


Data  is  transmitted  to  and  from  the  I/O  medium  in  units  corresponding  to  the  areas  In 
memory  tdiere  'he  data  items  were  found  or  will  be  stored.  Since  the  area  of  storage  in  the  CSLx 
system  is  the  field  (or  literal),  we  move  data  in  or  out  in  terms  of  the  fields  from  idiich  they 
were  fetched  or  to  trfiere  they  will  be  stored. 

Section  11.3,1  Data  Storage  During  An  Input  Operation 

A  special  BOU  celled  the  TAKE  BOU  is  used  during  an  input  operation. 

(TAKE,  ■»>  ±  is  only  a  data  descriptor.  One  unit  of  data  Is  taken 

from  the  Input  medium  and  stored  in  field  a.  The  format  of 
the  data  Item  is  determined  by  the  FORMAT  statement  control¬ 
ling  the  I/O  area  »diere  the  BOU  Is  found. 

Inside  the  I/O  area,  almost  any  CSLx  operations  may  be  performed.  The  user  must  not 
attempt  certain  operations  as  follows: 

1.  No  transfers  into  an  I/O  area  except  to  the  INPUT  statement. 

2.  No  transfers  out  of  the  I/O  area  without  properly  terminating  I/O  operations 
(see  Section  11.4) 

Let  us  present  a  short  example  of  an  input  I/O  area  in  a  CSLx  program. 

READ  INPUT,  PT,  FORMIN ,  ESDI 

(TAKE, A)  (TAKE.B) 

EfJDl  (C.E.tf)  (TAKE.D)  ENDIO 

FORMDJ  FORMAT  (12,  F7.4,  R4) 

Assume  the  following  data  record  is  read  from  the  paper  tape  reader  in  Flexovriter  Code: 

1229.6873CSL6 

After  completion  of  the  input  operation,  the  "bugs"  have  the  following  contents: 

"bug"  A  »  12,0 
•hug"  B  -  29.6873 

%ug"  C  *  $ 

"bug"  D  »  CSL6 
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Section  11.3.2  Fetching  Data  During  An  Output  Operation 


A  special  BOU  called  the  FEED  BOU  is  used  during  an  output  operation. 

(FEED,  a)  a  nay  be  either  a  data  descriptor  or  a  literal  (no 

Hollerith).  One  unit  of  data  Is  taken  from  field  a  and 
delivered  to  the  output  medium.  The  format  of  the  data 
Item  is  determined  by  the  FORMAT  statement  controlling  the 
1/0  area  where  the  BOU  is  found. 

Inside  the  I/O  area,  any  CSLx  operations  may  be  performed  subject  to  the  same  restrict¬ 
ions  as  for  the  input  I/O  area. 

We  present  here  a  short  example  of  an  output  I/O  area  from  a  CSLx  program. 

WRITE  OUTPUT,  PRINTER,  FORMQUT,  END2 

(FEED, A)  (FEED.B) 

END2  (FEED.C)  END 10 

FORMOUT  FORMAT  (IX,  12,  2X,  II,  2X;  F7.4) 

Assuming  that  "bugs"  A,  B,  and  C  were  set  up  by  the  input  I/O  area  in  the  example  of 
Section  11.3.1,  the  following  line  will  appear  on  the  printer  when  the  output  is  complete: 

12  0  29.6873 
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Section  11.4  I/O  Area  Termination 


The  CSLx  user  has  two  (2)  types  of  I/O  area  termination  to  be  aware  of:  compiler  and 
execution.  Compiler  termination  of  an  I/O  area  deliniates  the  end  of  the  CSLx  source  records 
to  be  read  by  the  compiler  and  included  in  a  specific  I/O  area.  Execution  termination  must 
occur  at  all  points  where  control  will  be  transferred  out  of  an  I/O  area. 

Compiler  termination  of  an  I/O  area  occurs  at  the  end  of  the  CSLx  statement  labeled 
end# I  (for  input)  or  end#0  (for  output),  end” I  and  end#0  are  the  last  arguments  of  the  INPUT 
and  OUTPUT  primary  statements. 

Execution  termination  of  an  I/O  area  occurs  when  the  ENDIO  primary  statement  is 
encountered.  The  ENDIO  statement  consists  only  of  the  character  string  ENDIO.  Additionally, 
the  DONE,  FAIL  and  EXIT  system  "goto"  units  will  create  execution  termination  operations  just 
prior  to  control  transfer. 


For  examples  of  the  usage  of  the  F.XC10  statement,  see  both  of  the  examples  of 
Sections  11.3.1  and  11.3.2. 


Chapter  12.  Sample  Programs 


Section  12.1  Overv.ew 


We  present  in  this  chapter  two  (2)  sample  programs  written  in  the  CSL6  language  which 
illustrate  some  of  the  basic  operations  performed  in  the  CSLx  system.  Either  program  will  run 
in  the  CSL7  system  without  any  modifications. 


Each  program  is  presented  first  in  its  complete  listing  format  ss  it  appeired  on  the  line 
printer  followed  by  a  discussion  of  how  ‘.he  program  operates  step-by-step.  For  reference,  each 
line  of  the  program  is  numbered  sequentially  and  referred  to  as  line  23  for  example. 


SORT  UST  -  SORT  ROUTINE  TAKEN  FROM  ORIGINAL  L6  WR.TEUP 


1 


f 


COMPILATION  DATE  5/26/69 


* 


s 

CO 

o 


i 

? 

! 

i 

* 
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Section  12.2  Sample  Program  to  Sort  A  String  of  Integers 


Program  SORTNUMS  reads  a  file  of  records  from  paper  tape,  each  record  containing  an 
integer  number.  Each  integer  is  placed  in  a  block  in  core,  and  all  blocks  are  linked  together 
on  a  string  with  both  forward  and  backward  pointers . 

When  input  is  completed,  the  blocks  of  the  string  are  arranged  in  ascending  order  of 
their  Integer  contents.  The  final  result  is  listed  along  with  the  input  data. 

The  output  as  shown  for  program  SORTNUMS  is  exactly  as  it  would  appear  on  the  1604  line 
printer.  Had  there  been  any  error  messages  during  compilation,  they  would  have  occurred 
immediately  following  the  record  in  error. 

The  program  is  begun  on  lines  1-6  where  storage  is  set  up  with  a  maximum  block  size  of 
4.  Fields  A.  B  and  N  are  defined  on  lines  7-9. 

"Bug"  L  will  be  loaucu  ..tu  a  pointer  to  the  .rst  block  in  the  string  containing  the 
input  data.  Thus,  in  line  13,  we  get  one  2 -block,  point  to  it  with  "bug"  A  and  set  the  same 
pointer  in  "bug"  L. 

Line  18  begins  the  input  I/O  area  where  the  integer  data  string  will  be  read  in.  The 
input  medium  is  PT  (flexcode  paper  tape)  and  the  format  is  specified  in  statement  INFORM 
(line  ’9).  The  I/O  area  will  end  on  statement  ENDI  (line  20).  Each  time  lines  18-20  a-e  exe¬ 
cuted,  one  integer  value  is  read  in  and  placed  in  "bug"  N.  The  end  of  I/O  operations  is  sig¬ 
nalled  by  ENDIO  on  line  20. 

Each  new  entry  to  the  string  is  processed  in  lines  24-26.  First,  a  2 -block  is  obtained 
and  linked  back  to  the  last  block  on  the  string.  Then,  the  last  block  is  linked  forward  to  the 
new  block.  Finally,  the  integer  read  in  is  placed  in  field  N  of  the  new  block  (line  24).  If 
the  integer  read  in  is  negative,  this  signals  the  end  of  the  input  data.  Control  will  transfer 
to  the  initial  print  loop  PRINTl  (line  25).  Otherwise,  we  return  for  a  new  read  operation 
(line  26). 


Printout  begins  by  setting  "bug"  A  to  point  to  the  first  block  in  the  string  which  con¬ 
tains  data.  Note  that  the  actual  first  block  on  the  string  is  a  dummy  block  used  to  initialize 
the  string  (line  30).  Then  we  start  an  output  I/O  area  for  the  PRINTER  (line  printer)  controlled 
by  format  statement  0UTF0RM  (lines  31-32).  The  end  of  the  I/O  area  occurs  on  statement  ENDO 
(line  33). 


Each  time  through  lines  31-33,  one  item  of  data,  taken  from  field  AN,  is  printed. 
"Bug"  A  is  th  —  advanced  to  the  next  block  (line  34).  At  this  point,  we  make  a  test  on  whether 
we  have  reached  the  end  of  the  string  or  not. 
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Two  tests  could  be  mde.  We  could  test  the  next  field  AN  in  the  string  to  see  if  it  is 

negative.  We  could  also  test  the  forward  pointer  of  the  next  block  to  see  if  it  is  zero  (0) . 

Remember  that  all  blocks  obtained  from  the  storage  allocator  are  zeroed  in  all  fields .  Thus, 
the  last  block  on  the  string  will  have  zero  (0)  in  its  A  field  (forward  pointer) . 

We  test  the  end  of  the  string  via  the  second  test  described  above  (line  35).  If  field 
AA  is  r.ot  zero  (0),  control  returns  to  PRINT11  to  print  another  value. 

When  the  list  is  printed,  sorting  begins  as  the  list  pointer  is  initialized  in  "bug"  A 
(line  39).  Next  comes  the  test  for  end  of  the  string  (line  40)  tdiere  control  will  advance  to 
the  second  print  routine  PRINT2  when  sorting  is  complete. 

Line  41  determines  if  the  integer  in  the  current  block  (pointed  to  by  "bug"  A)  is  equal 

to  the  value  in  the  previous  block.  If  so,  the  current  block  is  dropped  from  the  string  by 

linking  the  previous  block  to  the  next  block  on  either  side  of  the  current  block.  Then  the 
current  block  is  returned  to  storage  with  "bug"  A  set  to  point  to  the  next  block  on  the  string. 
Control  then  returns  to  the  end  test. 

Line  42  now  tests  the  relationship  between  the  value  in  the  current  block  and  the  value 
in  the  previous  block.  If  the  current  value  is  less  than  or  equal  to  the  previous  value,  the 
values  of  the  two  blocks  are  interchanged.  Then  "bug"  A  is  moved  back  to  the  previous  block. 
This  enables  push  back  of  smallest  values  before  larger  ones.  Control  then  returns  to  the 
equality  test  SCRT2.  If  no  interchange  is  needed,  "bug"  A  is  moved  down  the  string  (line  43) 
and  the  end  test  performed  again. 

After  sorting,  the  printe.'  is  spaced  (line  48-49)  and  the  list  is  output  in  the  format 
(line  47  .  50  -  54): 

ENTRY  N  »  Value 

When  the  printing  is  complete,  the  program  ends  and  control  returns  to  ILLSYS. 

On  page  li-4  the  actual  listing  of  the  output  from  SORTNUMS  is  shown.  The  time  of  exe¬ 
cution  was  2.4  seconds.  The  entire  listing  of  compilation  and  execution  is  shown  exactly  as  it 
would  appear  on  the  line  printer. 
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AVERAGE  SIZE  OF  WORD  IS  6.095000 
EIAPSED  TIME  0  0  IS. 8 


Section  12,3  Sample  Program  to  Read  BCD  Records  and  Determine  Frequency  of  Character  Jsage 
and  Average  Length  of  Word 

Program  CHARCT  drives  subroutine  READCHAR  to  break  down  data  on  BCD  source  file  records 
in  order  to  find  the  frequency  of  character  usage,  determine  the  length  of  words  on  the  records, 
and  to  calculate  the  average  length  of  words  in  the  file.  This  routine  uses  no  linked  storage 
but  does  contain  pseudo-subscripting  and  extensive  input-output  operations. 

The  output  as  shown  is  exactly  as  it  would  appear  on  the  1604  line  printer.  Had  there 
been  any  error  messages  during  compilation,  they  would  have  occurred  immediately  following  the 
record  in  error. 

The  operation  begins  in  lines  7  -  10.  Storage  is  initialized  because  the  system  push¬ 
down  stacks  will  require  linked  blocks  even  though  they  are  not  used  in  the  program.  Two 
arrays,  COUNT  and  SIZE,  are  cleared  to  zero  (0)  counts.  The  initial  values  of  average  length 
AVG  and  total  number  of  words  counted  WORDCT  are  also  cleared  to  zero  (0). 

In  line  14,  an  initial  call  is  made  to  RIADCHAR  to  cause  the  first  look-ahead  read-in 
of  a  BCD  source  file  record.  The  input  file  is  always  assumed  to  be  on  logical  unit  4.  He 

will  leave  the  discussion  of  READCHAR  until  later  in  order  to  not  interrupt  the  flow  of  the 

program  listing. 

The  read-in  of  each  character  is  performed  on  line  17.  READCHAR  produces  one  character 
in  "bug"  C.  When  the  end  of  the  input  file  is  reached,  an  early  exit  is  made  to  statement 
EXDREAD  (line  33).  Normally,  the  count  for  the  input  character  is  incremented  by  one  (line 
17).  Additionally,  the  character  is  checked  for  being  a  space  (20B).  If  it  is  not  a  space, 
WORDCT  is  incremented  (line  18)  to  count  the  number  of  characters  for  the  current  word  and  the 
loop  is  repeated. 

If  a  space  character  is  read,  then  a  word  boundary  has  been  reached  (line  23).  The 
size  of  word  is  limited  to  30  characters  maximum  to  prevent  spill-over  in  memory  (line  23). 

The  appropriate  word  size  counter  is  incremented  (line  24)  and  the  characters  per  word  counter 
is  reset  to  zero  (0)  (line  24).  Control  then  returns  to  read  a  new  character. 

When  the  input  tile  is  exhausted,  the  character  usage  counts  are  listed.  Output  is 

initialized  (lines  33-35)  by  labelling  the  printout.  The  count  lines  for  the  printout  are 
started  at  line  36.  An  index  for  the  printout  is  kept  in  "bug”  A.  Note  that  the  printout  for 
the  character  space  (20B)  is  skipped  on  line  39.  For  all  other  characters  up  to  60^  (74b), 
first  the  index  and  then  the  count  are  fed  to  the  output  statement  (line  40).  Die  index  is 
checked,  and  if  the  end  is  reached,  the  output  loop  is  left.  Otherwise,  the  next  count  is 
processed  (lines  41-43). 
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The  second  part  of  the  printout  is  initialized  with  a  heading  (lines  47-49)  and  an 
index  in  "bug"  A  is  set  to  one  (1).  Again,  a  feed  output  loop  is  set  up  in  line  50  and  the 
loop  entered  at  line  52.  The  index  of  the  word  size  count  is  output,  followed  by  the  total 
count  for  that  size.  When  all  counts  have  been  printed  (lines  52-54),  the  third  part  of  the 
printout  is  prepared. 

Line  58  initializes  an  index  in  "bug"  A  to  one  (1)  and  a  sunning  register,  "bug"  C, 
to  zero  (0).  The  list  of  word  sizes  will  now  be  sunned  for  total  size  and  total  words.  The 
loop  starts  in  line  59  where  the  total  count  for  the  current  index  is  multiplied  by  the  current 
size  and  sunned  in  AVG.  The  total  count  of  words  is  sunned  in  "bug"  C.  Then  the  index  is 
advanced. 

When  the  loop  is  complete,  the  average  size  or  word  is  computed  (line  61).  Lines  65-67 

output  a  statement  and  the  calculated  average.  Control  returns  to  the  calling  routine  at  this 

point  (line  68) . 

A  small  section  of  code  resides  in  lines  72-74  where  an  error  message  will  result  if 
the  input  data  file  contains  no  data.  Note  also  in  line  78  that  the  two  arrays,  SIZE  and 
COUNT,  and  two  variables,  AVG  and  WORDCT,  are  explicitly  defined. 

The  second  part  of  the  program  is  the  SUBPROGRAM  READCHAR  which  has  two  entry  points. 
INITREAD  provides  an  initializing  step  to  read  in  the  first  record  from  the  source  data  file 
and  set  up  the  character  unpacking  routines  for  operation.  READCHAR  causes  one  character  to 
be  read  from  the  current  source  record.  If  the  record  is  empty,  a  new  record  is  read.  When 
th°  end  of  the  file  is  reached,  the  special  "fail"  exit  is  taken. 

Character  unpacking  operations  begin  at  REDO  (line  9)  where  the  current  character  index 

is  incremented.  If  the-  index  is  less  than  81,  then  the  next  character  is  taken  from  the  se¬ 

quential  characters  LIST  (line  10).  Otherwise,  a  new  record  is  called  for  (line  11)  and  control 
returned  for  the  first  character  in  that  record  (line  9).  The  "fail"  exit  will  be  taken  by 
the  REREAD  section  of  code  at  the  end  of  the  file. 

The  next  record  from  ti.e  input  file  is  obtained  beginning  at  REREAD  (line  15).  A  10- 
word  BCD  record  is  read  into  BUFFER.  If  the  first  eight  (8)  characters  of  the  next  record 
are  —END  ,  then  the  end  of  the  input  file  has  been  reached.  Thus,  the  "fail"  exit  will 

be  taken  (line  16). 

The  breakdown  of  the  input  recor,!  is  accoi^lished  by  use  of  the  system  DECODE  routine 
which  is  initialized  in  line  17  to  decode  80  characters  in  Rl  format  from  BUFFER.  80  characters 
•re  planted  in  LIST  in  lines  18-21.  The  DECODE  input  operation  is  terminated  and  the  current 
character  index  set  to  zero  (0)  in  line  22.  Control  then  returns  to  the  calling  section  of  cod*. 
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APPENDIX  A 


Error  Messages 

In  this  appendix  ve  list  the  various  error  messages  produced  by  the  CSLx  compiler. 
Each  message  is  listed  as  it  will  be  printed  and  may  be  followed  by  a  clarification  statement 
if  necessary. 


A.l  Statement  Breakdo*.m 


ILLEGAL  USE  OF  , 

ILLEGAL  USE  OF  ) 

Generated  by  misplaced  commas  and  right  parentheses. 

A. 2  Field  Designations 

X  FIRST  CHAR  NOT  BUG 

x  is  not  A-Z  for  "bug" 
a(oo)  IS  AN  ILLEGAL  FIELD  CHARACTER 

a  is  not  0-9,  A-Z.  oo  is  octal  value. 

FIELD  a  UNDEFINED 
INTERNAL  FIELD  SHORT 

Only  "/"  appears  as  field  designation.. 

EXTERNAL  FIELD  SHORT 

Only  appears  as  field  designation. 

A. 3  Operation  Block  Processing 
SINGLE  OPERATION  BLOCK 
NO  FIELD  AFTER  ( 

First  field  in  block  is  missing.  Also  may  mean  space  after 
ILLEGAL  SEPARATOR 

Only  is  legal  separator. 

MISSING  2nd  FIELD 
MISSING  3rd  FIELD 
MISSING  4th  FIELD 
MISSING  5th  FIELD 

Field  missing  between  and  ")" 

OPERATION  BLOCK  TOO  LONG 

Block  has  more  than  5  fields 
INCOMPLETE  STATEMENT 

")"  probably  missing  in  last  operation  block  of  statement. 
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TEST  BLOCK  NOT  3  TIELDS 
ILLEGAL  FIELD  OPERATOR  aa(oooo) 

Not  allowed  operation,  aa  is  field  operator  and  oooo  is  octal  equivalent. 

ILLEGAL  OPERATION  IN  IF  COMPILATION  aa(oooo) 

Not  allowed  test  operation.,  aa  is  operation  code  and  oooo  is  the  octal  equivalent. 

A.A  Inknown  Data  at  End  of  Statements 
UNKNOWN  DATA  AT  END  OF  xxxxxxxx  STATEMENT 
UNKNOWN  DATA  AFTER  xxxxxxxx 

xxxxxxxx  operations  r.ust  be  at  end  of  the  statement  they  occur  in. 
xxxxxxxx  is  one  of 


1. 

fcXIT 

2. 

FAIL 

3. 

DONE 

4.  a  "goto" 

5.  ENDIO 

6.  INPUT 

7.  OUTFIT 

8 .  TRANSFER 
d.  SWITCH 

A. 3  IT  and  NOT  Statements 

ONLY  ONE  TEST  ALLOWED  IN  IF  STATEMENT 

ONLY  ONE  TE  'T  ALLOWED  IN  NOT  STATEMENT 

A. 6  OITPIT  statement 

ILLECAE  FOR’ AT  FOR  Ot  TPUT  STATEMENT 

INCOMPU.TE  OH  PIT  STATE 'I  NT 

ATTEMPTED  Tl>  STAR"  OITPIT  STATEMENT  INSIDE  IN  PI  T  STATE' ‘1ENT  AREA 
ATTE'-pTE!)  To  RE  ART  on  PH  S  fAE.  _  "E  INSIDE  OITPIT  STATEMENT  AREA 


A.  7  INPIT  State  •  ent 
I  lLEI.AL  roRMAT  1>’K  IN  PI  I  STATE'ENT 
INCO’-PLEII  INPII  -TAEVINT 

ATTEMPTED  El  SEAR  i  IN  PI  T  STATE'!.’.  I  INSIDE  OITPIT  STATEMENT  AREA 
ATTFM-PTEP  10  sEViE  INPIE  STA iEMENT  INSIDE  INPIT  STATEMENT  AREA 

ft.  3  TRANsli.R  s  latent  nt 
ILLEGAL  TRA'.sl  i,,R  MATE  "  I  ’’1  F>'R"AT 
INCO’MMjEi  ER.V.SI .  R  slAil'TM 

••issr.i.  r.nix  i  ii  ip  <<:.  transhr  state  tint 

1  Eii  «  A!  r.i>E\  Mi;!'  FORM 
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A. 9  SWITCH  Statement 

ILLEGAL  FORMAT  FOR  SWITCH  STATEMENT 

INCOMPLETE  SWITCH  STATEMENT 

A. 10  GLOBAL  Statement 
INCOMPLETE  GLOBAL  STATEMENT 

"Bug"  name  missing  after  last 
ILLEGAL  SEPARATOR  IN  GLOBAL  STATE >E NT 
Only  is  legal  separator 
ILLEGAL  Bl'G  NAME  IN  GLOBAL  STATEMENT  a 
a  is  not  «  "bug''  A-Z 

NON  SINGLE  CHAR  FIELD  IN  GLOBAL  STATEMENT  a 
a  contains  more  than  1  character 

A.  11  POPl’P  Statement 
INCOMPLETE  POPL’P  STATEMENT 

Missing  field  after  last 
ILLEGAL  SEPARATOR  IN  POPL’P  STATEMENT 
Only  is  legal  separator 

ILLEGAL  FIELD  IN  POPUP  STATEMENT 

Not  a  legal  field  designation  or  may  be  a  literal 

A.  2  PUSHDOWN  Statement 
INCOMPLETE  PUSHDOWN  STATEMENT 

Missing  field  after  last 
T.LLEl  1L  SEPARATOR  IN  PUSHDOWN  STATEMENT 
Only  is  legal  separator 

ILLEGAL  FIELD  IN  PUSHDOWN  STATE >ENT 

Not  a  legal  field  designation 


A  .13  DEFINE  Statement 
INCOMPLETE  DEFINE  STATEMENT 

Missing  label  after  last  'V 
ILLEGAL  SEPARATOR  IN  DEFINE  STATEMENT 
Only  is  legal  separator 
ILLEGAL  LABEL  IN  DEFINE  STATEMENT 

Label  does  not  conform  to  ILLAR  label  conventions 

A.1A  CALL  Statement 
INCOMPLETE  CALL  STATEMENT 

Probable  missing  argument  in  call  list  and/or  missing  ")" 
ILLEGAL  SEPARATOR  IN  CALL  STATEMENT 

Comnu.  must  separate  CALL  from  subroutine  name 
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ILLECAL  FORMAT  OF  CALL  OBJECT  NAME 

Subroutine  name  does  not  follow  TT,1AR  program  name  convention. 

A.  15  ENTRY  Statement 
INCOMPLETE  ENTRY  STATEMENT 

Missing  label  after  last 
ILLEGAL  SEPARATOR  IN  ENTRY  STATEMENT 
Only  is  legal  separator 
ILLEGAL  LABEL  FORMAT  IN  ENTRY  STATE hCNT 

Label  does  not  conform  to  ILLAR  label  convention 

A.  16  DO  ENTRY  Statement 
NO  LABEL  FOR  ENTRY  POINT 

A. 17  CALL  ENTRY  Statement 

NO  LABEL  FOR  ENTRY  POINT 

NO  CALL  ENTRY  ALLOWED  IN  SUBPROGRAMS 

A.  18  EXTERNAL  Statement 
INCOMPLETE  EXTERNAL  STATEMENT 

Missing  label  after  last 
ILLEGAL  SEPARATOR  IN  EXTERNAL  STATEMENT 
Only  is  legal  separator 

ILLEGAL  LABEL  IN  EXTERNAL  STATEMENT 

Label  does  not  conform  to  ILIAR  label  convention 

A.  19  DEFSTACK  Statement 
INCOMPLETE  DEFSTACK  STATE >E NT 

Missing  name  after  last 
ILLEGAL  SEPARATOR  IN  DEFSTACK  STATE  FE  NT 
Only  is  legal  separator 

ILLEGAL  NAM  IN  DEFSTACK  STATEMENT 

Names  must  conform  to  ILLAR  label  convention 
STACK  NAME  x  TOO  LONG 

Name  x  contains  more  than  8  characters 
50  STACKS  USED  UP 

Only  50  iser  stacks  may  be  defined 
STACK  a  IS  DOUBLY  DEFINED 

A. 20  STACK  Statement 
INCOMPLETE  STACK  STATEMENT 

Premature  end  of  statement  after  STACK  or  missing  field  designation  after  last 
ILLEGAL  SEPARATOR  IN  STACK  STATEMENT 
Only  is  legal  separator 
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MISSING  STACK  NAME 

Missing  stack  name  or  name  doe  j  not  conform  to  ILLAR  label  convention 
STACK  NAME  TOO  LONC 

Stack  name  contains  more  than  8  characters 
^DEFINED  USER  STACK 
ILLEGAL  FIELD  IN  STACK  LIST 

Some  field  position  contains  an  illegal  field  designation 

A. 21  UNSTACK  Statement 
INCOMPLETE  I'NSTACK  STATEMENT 

Statement  ends  prematurely  after  I'NSTACK  or  missing  field  after  last 
ILLEGAL  SEPARATOR  IN  L'NSTACK  STATE JCNT 
Only  is  legal  separator 
MISSING  FAILEXIT  IN  UNSTACK  STATEMENT 

Missing  FAILEXIT  label  or  label  does  not  conform  to  ILLAR  label  convention 
FAILEXIT  LABEL  TOO  LONG 

FAILEXIT  label  contains  more  than  8  characters 
UNDEFINED  USER  STACK 
MISSING  STACK  NA>E 

Missing  stack  name  or  name  does  not  conform  to  ILLAR  label  convention 
STACK  NAME  TOO  LONG 

Stack  name  contains  mor*  than  8  characters 
ILLEGAL  FIELD  IN  STACK  LIST 

Some  field  position  -on tains  an  illegal  field  designation 

A. 22  Hollerith  Literals 
HOLLERITH  LITERAL  OVER  8  CHARACTERS 

A, 23  Block  Duplication  Operation 
ATTEMPTING  TO  DUPLICATE  INTERNAL  FIELD 
ATTEMPTING  TO  DUPLICATE  EXTERNAL  FIELD 

A. 24  Fteld  Contents  and  Field  Definition  Stack  Operation 
ILLEGAL  FIELD  DEFINITION  OPERATION 

First  field  in  operation  block  is  not  o  or  R 
ILLEGAL  FIELD  CONTENTS  OPERATION 

First  field  in  operation  block  is  not  S  or  R 

A. 25  FEED  -peration 

FEED  NOT  ALLOWED  IN  IF  COMPUTATION 

FEED  NOf  PRIJCD  BF  OITPUT  STATE '■E'T 
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A . \\i  Opo  ,  3 1  ion 

IA<r  V':.  iVD  IN  IF  COMPUTATION 

iw.  not  rerri'  si  inpit  statement 


a.,~  Storage  setup 

a  ? . ate'Int  storage  setip 

:  iUAL  SLOCK  SIZE  ARGUMNT 

Argurent  must  be  positive  integer  literal 

A.2S  Substitution  operation 
S.KSTITITION  OPERATION  HAS  ONLY  3  FIELDS 

A. 29  Ccrpilation  of  Argument  Lists  for  CALL  and  DOMIC  Statements 
INCOMPLETE  LIST 

Missing  field  after  lsst 
ILLEGAL  FIELD  IN  LIST 

Sone  field  position  contains  an  illegal  field  designation 
ILLlCAL  SEPARATOR  IN  LIST 

Only  is  legal  separator 
I  LiECAL  BIG  CHAR  IN  LIST 

Single  character  field  is  not  A-Z  or  literal 

A.  Header  Card 
ARC-HINTS  ERROR 

Premature  end  on  PROGRAM,  SUBROUTINE,  SUBPROGRAM  cards  with  arguwnts  before  ")" 
found 

A.  31  FORMAT  Statement 
MISSING  )  FOR  FORMAT 
MISSING  (  FOR  FORMAT 


APPENDIX  B 


Proper  Foimats  for  Driving  FORTRAN  Language  Function  Subroutines 

In  order  to  maintain  good  compatablllty  between  language  systems  in  the  ILLAR  syste" 
(ILLSYS),  several  special  operation  codes  or  statements  have  been  included  in  each  language  to 
allow  driving  of  function  subroutines  peculiar  to  the  other  system  languages.  In  the  CSLx 
language  system,  the  FUNC  BOU  is  provided  to  enable  the  use  of  FORTRAN  language  implicit 
function  subroutines.  The  function  subroutines  are  peculiar  in  that  their  result  (always  a 
single  result)  is  returneo  to  the  calling  program  in  the  main  accumulator  of  the  1604  computer. 
The  FUSC  BOU  allows  these  subroutines  to  be  called  and  then  to  place  their  result  in  some 
designated  field. 

Below  we  have  listed  proper  forms  of  BCU's  for  driving  most  of  the  standard  FORTRAN 
function  subroutines.  Field  A.  any  type  of  field  designator,  is  the  field  where  the  returned 
result  will  be  placed.  Arguments  X,  XI,  and  X2  may  be  any  field  descriptor  or  literal  (no 
hollerith)  as  required  by  the  function  subroutine.  For  further  descriptions  and  details  about 
any  particular  subroutine,  the  reader  is  advised  to  see  the  ILLAR  system  librarian. 


BOU  Format 
(A,FUNC,ABSF,X) 
(A.FUNC.INTF.X) 
(A,FUNC,f»DF,Xl,X2) 
(A,FUNC,XM0DF,X1,X2) 
(A, FUNC, SIX? ,X) 
(A,FUNC,COSF,X) 
(A.FUNC.TANF.X) 
(A.FUNC.ASINF.X) 
(A,FUSC,ACOSF,X) 
(A,FUNC,ATANF,X) 
(A.FUNC.TANHF.X) 
(A.FUNC.SQRTF.X) 
(A.FUNC.LOGF.X) 
(A,FUNC,SCPF,X) 

(A  ,  FUNC , S IGNF  ,X  1  ,X2  ) 
(A  ,FUJ»C  ,XSIGXF  ,X  1  ,X2  ) 
(A ,FUNC ,PWRRR ,X 1 ,X2) 
(A,FUNC,PWR1I,X1,X2) 
(A,FUNC,PWRRI  ,X1  ,X2) 
(A,FUNC,PWRIR,X1,X2) 
(A,FUNC,RANF,X) 


Operation  of  Function  Subroutine 

Absolute  value  of  X  in  floating-point 

Truncation  of  integer  part  in  floating-point 

XI  taken  modulo  X2  in  floating-point 

XI  taken  modulo  X2  in  fixed-point 

Sine  of  X  radians 

Cosine  of  X  radians 

Tangent  of  X  radians 

Arcsine  of  X  in  radians 

Arccosine  of  X  ir.  radians 

Arc  tangent  of  X  in  ndians 

Hyperbolic  tangent  of  X  radians 

Square  root  of  X  in  floating-point 

Natural  log  of  X  in  floating-point 

e  to  the  X  power  in  floating-point 

Sign  of  XI  tiroes  X2  in  floating-point 

Sign  of  XI  tiroes  X2  in  fixed-point 
X2 

XI  in  floating-point 
X2 

XI  in  fixed-point 
X2 

XI  ,  XI  ir<  floating-point,  X2  in  fixed-point 
X2 

XI  ,  XI  in  fixed-point,  X2  in  floating-point 

Random  number  gercrator,  X  =  +,  then  result  is 
fixed-point;  x  =  then  result  is  floating¬ 
point 
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i  »  abstract 


This  report  is  a  programmer's  manual  for  usage  and  understanding  of  a  low-level 
inked  list  processing  language  operating  on  the  Control  Data  1604  computer.  The 
>asis  for  the  language  is  L  (  a  language  developed  at  Bell  Laboratories  by  K.  C. 
(newton. 

The  manual  describes  a*!  of  the  operation  codes,  statements  and  procedures  for 
isir.g  the  language.  In  addition,  a  brief  discussion  is  given  on  linked-list  storage 
schemes  and  how  they  are  handled. 
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